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SCE SCULPTOLS 


GENERATES CUSTOMIZED 
INPUT SCREEN PROGRAMS 
IN BASIC AND PASCAL eas 


THE 


SOFTWARE 
BOTTLING 
COMPANY 


OF NEW YORK 
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BASIC or PASCAL. Easily! FULL FUNCTION SCREEN CREATION 
Generate programs in BASIC or PASCAL. Simply “draw” input screens with word processor style editor. 
Your choice. Works with * Turbo PASCAL, 
* IBM PASCAL or IBM BASIC (Interpreter Advance screen creating features include: 
and Compiler). Easy to use. ° Draw boxes, lines, etc. in seconds with unique character selection menu. 
Begin productive use in minutes! Repeat last character in any direction. 
e Special color-select screen displays all available colors. 
e Paint and Repaint sections of screen at any time. 
POWERFUL SCREENS e Copy and Move sections of screen. 
Everyone can have professional quality e Insert or Delete characters and lines. 
screens to dress up any program. e Input field definition screen gives you total control of character type 
Generate complex, colorful, effective definitions, edit screen masks, input sequence, variable 
screens in minutes. names, initial values, protected characters, etc. 


COMPLETE DATA ENTRY ROUTINES 


Generates customized program code that allows professional quality data input using the full PC keyboard (cursor keys, delete, 
insert, and more). Checks input data for valid entries and displays error messages. 

Programs are easily merged with your own programs. 

Easy to follow documentation shows how and where you can modify the generated programs. 


e Available now with IBM PC, PCjr, PCXT, and all true compatibles. 
eRequires 128k RAM, one floppy disk drive, and PC DOS. Works with any 80 column display type. 


* Turbo PASCAL is a registered trademark of Boreland International, Ltd. IBM is a registered trademark of IBM corporation. 


TO ORDER SEE YOUR LOCAL DEALER 
OR CALL (718) 728-2200 


Credit Card Orders call 1-800-824-7888. Operator 268 


On| of 7 B00 Alaska and Hawaii call 1-800-824-7919. Operator 268 
y DEALER INQUIRIES INVITED. SORRY, NO C.O.D. 
(includes shipping and handling) Produced and Distributed by The Software Bottling Co. of New York. 


(N.Y.S. Res. Add 8% % sales tax) 


29-14 23 Ave., New York City, N.Y. 11105 
ITEM No. 1100 


Circle no. 66 on reader service card. 
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PRESENTS 


CP/M 


FOR’ THE 


Macintos 





= SOFTWARE: 





™ 


L.Q. SOFTWARE, in one historic move, brings more proven pro- 
grams to the Macintosh than have existed to date. In the giant world of 
CP/M based software, CP/M FOR THE MACINTOSH delivers 
the same friendly stand-alone environment to the software developer 
(professional programmer). If you are wondering why so many 
developers know and use CP/M it is because CP/M is powerful, easy 
to learn and easy to use. So easy to use that almost 1 MILLION 
USERS have CP/M based systems using CP/M based programs and 
enjoy these same benefits that you will with CP/M FOR THE 


MACINTOSH. 
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CP/M is a registered trademark of Digital Research, Inc. 
Macintosh is a registered trademark of Apple Computer, Inc. 
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Circle no. 37 on reader service car 


2229 East Loop 820 North 
Fort Worth, Texas 76118 
(817) 589-2000 


Join the network 


Develop a program for the new IBM 
PC Network. 


Promote yourself into the top ranks of network pro- 
grammers. Write new programs or modify existing ones 
to run on the local area network that’s sure to be a best 
seller. 

Capitalize on a chance to be in from the beginning 
with integrated business applications, productivity tools 
and office automation programs. 

A high-level interface card makes programming for 
the IBM PC Network fast and easy. Full data sharing and 
byte locking capability, multiple servers, two megabits 
per second data transmission and a complete diagnostic 
package make the network equally as attractive to the end 
user. 

For complete details about joining the network call 
1-800-426-2700. Or write IBM Corporation, Editor. 

IBM Personal Computer Seminar Proceedings. 
5Q9/4629. PO. Box 1328 Boca Raton. FL 33432. 





Little Tramp character licensed by Bubbles Inc., s.a. 











IBM PC Network Specifications 


IBM PC NETWORK ADAPTER 
HARDWARE HIGHLIGHTS 


MICROPROCESSORS 
*6MHz 80188 
* 6MHz 82586 


MEMORY 

* 32K PROTOCOL ROM 

- 16K RAM 

* 8K NET BIOS ROM 

VIDEO COMPATIBLE RF MODEM 

* TRANSMIT 50.75 MHz (CH 114) 

* RECEIVE 219 MHz (CH J) 

* SUPPORTS 1000 NODES 

* MAXIMUM DISTANCE 5KM RADIUS 
FROM HEADEND 

* MULTIPLE SERVICES POSSIBLE 


DIAGNOSTICS 


* POWER-ON SELF-TEST 

* ON-LINE MEDIA MONITORING 
OTHER 

* SUPPORTS DMA DATA TRANSFERS 
* 2-MEGABIT/SECOND DATA RATE 

* MID-SPLIT BROADBAND 


FIRMWARE HIGHLIGHTS 


OPEN ARCHITECTURE 

*» PEER-TO-PEER NETWORK 

* OPERATING SYSTEM INDEPENDENT 

* LOCALNET/PC™, PUBLISHED LAYERED 
PROTOCOL 

FUNCTIONS 

- BASE FUNCTIONS PROCESSED ON THE 
ADAPTER, NOT THE PC 

- DISTRIBUTED NAME SUPPORT 

* REMOTE PROGRAM LOAD 

* 32 CONCURRENT TWO-WAY SESSIONS 

* HIGH THROUGHPUT RATE AT SESSION LAYER 

* CHARACTER SET INDEPENDENT 


IBM PC NETWORK CABLING SYSTEM 


IBM PC NETWORK TRANSLATOR UNIT 


HARDWARE HIGHLIGHTS 

* SINGLE RF CHANNEL CONVERSION 

* ATTACHMENT OF UP TO 72 PCs WITH IBM 
CABLING 

* ATTACHMENT OF UP TO 256 PCs WITH 
CUSTOM CABLING 

* DATA ONLY 

- ALLOWS NODES WITHIN A 1000-FOOT RADIUS 


CABLE 


TYPE 

* STANDARD CATV MEDIA (75 OHM COAX) 
- TREE TOPOLOGY 

* CATV STANDARD F-CONNECTORS 

* PREBALANCED BROADBAND NETWORK 





LOCALNET/PC IS A REGISTERED TRADEMARK OF SYTEK. INC 





KITS 


* BASE EXPANDER (ALLOWS EXPANSION FROM 


TRANSLATOR) 


* SHORT-DISTANCE KIT (1 FOOT ADDITIONAL CABLE) 
- MEDIUM-DISTANCE KIT (400 FEET ADDITIONAL 


CABLE REQUIRED) 


- LONG-DISTANCE KIT (800 FEET ADDITIONAL CABLE 


REQUIRED) 
* CABLE AVAILABLE IN 4 LENGTHS: 25 FT, 50 FT, 100 FT, 
AND 200 FT. 
MAXIMUM PCs AND RADIUS 
DISTANCES SUPPORT FROM TRANSLATOR PCS 
* TRANSLATOR ONLY 200 FEET 8 
*8 SHORT-DISTANCE KITS 200 FEET 72 
-8 MEDIUM-DISTANCE KITS 600 FEET 72 
*8 LONG-DISTANCE KITS 1,000 FEET 72 
- 8-KIT COMBINATION 200 to 72 
1,000 FEET 


IBM PC NETWORK SOFTWARE 


DOS 3.1 
EXPANDED SUPPORT FOR NETWORKING 


* FILE SHARING 
> RECORD LOCKING DOWN TO BYTE LOCKING 


PROGRAM INTERFACE TO NETWORK SOFTWARE 


* REDIRECTION CONTROL 

* INSTALLATION CHECKING 

- DIRECT EXECUTION OF NET BIOS FUNCTIONS 
* MULTIPLE SERVERS 


IBM PC NETWORK PROGRAM 
FULL SCREEN INTERFACE AVAILABLE 
REDIRECTOR 


* ALLOWS USE OF SHARED PRINTERS 
* ALLOWS USE OF SHARED DISKS AND DIRECTORIES 
- PROVIDES CAPABILITY TO SEND MESSAGES 


FILE SERVERS 


- SHARED USE OF NAMED DISKS OR 


SUBDIRECTORIES 


* PASSWORD PROTECTION AGAINST UNAUTHORIZED 


ACCESS 


- VARIETY OF ACCESS MODES SUPPORTED (E.G. 


READ ONLY) 


* RECORD LOCKING TO CONTROL MULTIPLE 


UPDATES 
PRINT SERVER 


* SHARED USE OF NAMED PRINTERS 
* PASSWORD PROTECTION AGAINST UNAUTHORIZED 


ACCESS 


* AUTOMATIC SPOOLING AND QUEUING OF OUTPUT 
* QUEUE MANAGEMENT FACILITIES ON SERVER 


STATION 


MESSAGE SERVER 

- INTERACTIVE MESSAGE EDITING/TRANSMISSION/ 
RECEPTION 

> PRESERVES FOREGROUND APPLICATION CONTEXT 

* AUTOMATIC NOTIFICATION OR LOGGING TO DISK/ 
PRINTER 


ill 
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In This Issue ! 


As promised, Michael Wiesenberg starts his column of puzzles for computer 
solution this month. In addition, we tell you about modifying proprietary soft- 
ware, circumventing the boundaries of user areas in CP/M, determining where 
your program is spending most of its time, and using a binary tree to maintain a 
spelling dictionary. There is even a token parsing filter for MSDOS. 

Another very useful item is the guide to C programming resources. Until we 
started working with Terry Ward to get his resource list into production we had 
little idea how much work such a project can be. As the list grows, maintenance 
can become as cumbersome as the initial compilation: addresses and product 
lines change, new companies enter the picture, old companies give up the ghost, 
new material is published each month.... 

Eventually you just have to decide to stop updating and print the thing. We did 
succumb, however, to the temptation of last minute additions to the bibliogra- 
phy. While it was too time consuming to do a complete update, we did try to 
include as much of the latest material from Dr. Dobb’s as we could. We hope that 
folks will understand our selectivity in this matter. 

Finally, it is almost inevitable that sources will be omitted or come into being 
after you quit updating. If there are folks who did not get included, drop us a 
note. If we get enough new information, perhaps we can convince the author to 
do an addendum. 


This Month’s Referees 
x as by MAT Put 

_ Way, Palo Alto, ue Dr. Dobb’s Journal regularly draws on the expertise of a Board of Referees for 
technical evaluation of material submitted for publication. In addition to re- 
marks to the editors concerning accuracy and relevance of manuscripts, the ref- 
erees often provide constructive comments for authors regarding clarity or com- 
pleteness. Their remarks help prevent authors from exposing blindspots or 
misconceptions in print and help ensure that our readers receive clear and accu- 
rate information. 

Each month, we print the names of the referees who contributed their insights 
on material in that particular issue. This space-conserving scheme, unfortunate- 
ly, does not mention those who work on material that doesn’t make it into the 
magazine. We are in the process of updating our records right now, and will 
publish another complete list of the board shortly. 

The referees who contributed to this month’s issue are: 





i ee ASCH eee ac: on 
ter Services (Australia), Computer Store 


Ian Ashdown, P.E., byHeart Software 


d), Cee Ho. Robert Blum, DDJ Contributing Editor 
| David D. Clark, Pennsylvania State University 
- McGill’s News seen F PTY LTD Michael P. Kelly, Design Software 


Sees Douglas W. Rosenberg, Optimal Software 


Stan Sieler, Next Generation Systems 
Allen Tigert, Krontron Medical Electronics 
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ARTICLES 
Adding Primitive |/O Functions to muLISP 18 Howto add new functions to muLISP, with a look at 
by Michael Carter issues involved in modifying any piece of proprietary 


software. (Reader Ballot No. 192) 


Program Monitor Package—wUsing Interrupts 26 Optimize intelligently by monitoring where your program 
to Instrument Applications is spending most of its time. (Reader Ballot No. 193) 
by Alan Bomberger 


CP/M 2.2 Goes PUBlic 48 Howto make any file accessible from any user area on a 
by Bridger Mitchell and Derek McKay given drive without the duplication necessary to many 
other schemes. (Reader Ballot No. 194) 
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saw the fall of Personal Software, List, Computers and Peripherals, Col- 

or Computer and the entire Softalk branch: Softalk, Softalk for the IBM 
Personal Computer, St. Mac and earlier, St. Game. Then as the season changed 
came the announcements that Microcomputing and Microsystems would cease 
publication. 

I am especially sorry to see those two drop off. Both magazines call up for me an 
electrically-charged time, days spent playing Little Brick Out on a cassette-based 
Apple and nights struggling to get a payroll system up on the Board of Health’s 
multiuser Alpha Micro. I grew up in the Midwest, tornado country, and I recall 
one stormy autumn twenty years ago when my father stopped the car to stand by 
the side of the road, leaves whirling around his feet, and take pictures of the 
approaching funnel cloud. The memory of that day came back years later when, 
between sessions of Little Brick Out, I read early issues of those two magazines 
and felt another kind of storm brewing: I read in an ionized atmosphere. 

Dr. Dobb’s advertising sales people see the demise of Microcomputing and 
Microsystems as two competitors less. But what do they know. 

Microcomputing began with pique and a poke at Byte magazine. Born in the 
late 1970s when the few existing microcomputer magazines were read exclusively 
by hobbyists, Microcomputing had a curious close connection with Byte, but to 
call them sister publications would be seriously to misunderstand the relationship. 
When Byte publishers Wayne and Virginia Green parted company professionally, 
Virginia took Byte and Wayne took it hard. He immediately threw himself into the 
creation of another computer magazine, which he called Kilobyte. What he hoped 
to do to Byte was perhaps a little too obvious in the title; he met with legal 
objections to its use, and compromised on Kilobaud. But however pique-provoked 
the magazine may have been, its genius was Wayne Green’s passion for gadgets, 
and it spoke to its readers with a freshness and relevance and passion that perhaps 
only hobbyist magazines can attain. Over the years, Kilobaud evolved by way of 
Kilobaud Microcomputing to Microcomputing, spinning off a little family group 
of computer magazines along the way. In 1983, Wayne Green’s magazine family 
was bought by CW Communications, Inc., a huge publisher of computer maga- 
zines, and this fall CW decided to retire Microcomputing. 

Microsystems was originally S-100 Microsystems, and was the vehicle 
through which Sol Libes spread his knowledge about S-100 bus computer sys- 
tems and products and issues. Libes, even more than Green, was interested in 
spreading technical information to the community of hackers and tinkerers who 
evolved with the hardware into professional software developers and system de- 
signers. His magazine was always aimed at the advanced user. Eventually it 
evolved into Microsystems and was bought by Ziff-Davis, a major publishing 
house. Libes was still doing his popular ‘“‘“News and Views” column when, this 
fall, Ziff-Davis decided that Microsystems had no place in its lineup. 

It’s not that these magazines were perfect or that their publishers were wrong 
in retiring them. It’s just that Microsystems and Microcomputing were there. 
They lived through, and helped to guide some of us through, a time when the 
world was changing magically, but the change was still so small you could hold it 
in your hand; a bright summer of computer hobbydom that is over now. Since I 
left the Midwest for Silicon Valley I haven’t seen dramatic changes of seasons. 


Except for this one. 
if 
4, cLaol- ‘ 5 4s Me 


Michael Swaine 


C omputer magazines are dropping like dry leaves in a storm. This summer 
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COHERENT" IS SUPERIOR TO UNIX’ 
AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn't just taken a mini-computer 
operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 
capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. 


For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- 
compatible, UNIX software will run on the PC under 
COHERENT: 


The software system includes a C-compiler and over 100 utili- 
ties, all for $500. Similar environments cost thousands more. 


COHERENT on the IBM PC requires a hard disk and 256K 
memcry. It’s available on the IBM XT; and Tecmar, Davong 
and Corvus hard disks. 


Available now. For additional information, call or write, 


Mark Williams Company 
1430 West Wrightwood, Chicago, Illinois 60614 
312/472-6659 


Mark 
Williams 
Company 


mn 





COHERENT isa trade mark of Mark Williams Company. 
*UNIX is a trade mark of Bell Laboratories. 


Circle no. 76 on reader service card. 
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LETTERS 


On Sixth Generation 
Computers 


Comments on Richard Grigonis’ 
“Sixth Generation Computers” article 
(DDJ, May 1984) ranged from lauda- 
tory to caustic. Michael Doherty’s re- 
ply to Grigonis the following month 
drew further comment. Below is a 
sampling of some of the remarks we 
received. — Ed. 


Grigonis’ “Sixth Generation Comput- 
ers” was stimulating, readable—the 
best article I’ve read in a long time! 
Robert M. Mason 
MRC—130 West Wieuca 
Rd, Suite 200 
Atlanta, GA 30342 


Regarding “Sixth Generation Com- 
puters,” faster than light travel does 
not necessarily violate causality. Refer 
to “Is Faster Than Light Travel Caus- 
ally Possible?” by Paul Birch, Journal 
of the British Interplanetary Society, v 
37, pp. 117 — 123, 1984. 

Peter G. Backes 

24016 Kittridge St. 

Canoga Park, CA 91307 


“Sixth Generation” is too speculative, 
but interesting. Sixth generation com- 
puters will not use methods described. 
The human brain achieves intelligence 
without any of these “breakthroughs.” 
Kjeld Hvatum 
P.O. Box 267, MIT Branch 
Cambridge, MA 02139 


In appreciation of the wonderful 
sketch of sixth-generation computers 
by Richard Grigonis (DD/J No. 91) I 
would like to share with your readers 
an essay by Miss Bonnie McIntosh: 
Since the brain’s synaptic signals 
are much like electronic impulses, a 
“brain modem” should be developed 
which could turn my thoughts into 


print and graphics on the computer 
screen. By utilizing this method of 
communication, thoughts would not be 
lost or altered by the slow process of 
verbalizing, drawing, or writing but 
immediately appear in pure form on 
the computer screen virtually as fast as 
they are thought—then edited as de- 
sired (a thought processing pro- 
gram?). The brain, through a brain 
modem, could become a high-speed in- 
put device. This process could also be 
reversed so that individuals could re- 
ceive information directly from the 
computer to the brain, a method that 
could be much quicker than reading or 
listening to the information. It should 
also be possible to create or compose 
music in the same manner, so that the 
tunes that play “in my head” can be 
heard by others through brain-to-com- 
puter translation. 

Peter C. Lincoln, Ph.D. 

Bonnie S. McIntosh 

Chaminade University of 

Honolulu 
3240 Waialae Avenue 
Honolulu, HI 96816 


I enjoyed Michael Doherty’s argument 
very much. We human beings are 
adaptive for survival, self defense, or 
greed. Machines, including computers, 
in the sixth generation still won’t pos- 
sess this inherent adaptive capability. 

Dan Ley 

84—15 168th Place 

Jamaica, NY 11432 


Comments to Grigonis’ article may be 
forthcoming, but according to his inter- 
pretation of quantum mechanics he 
should already have access to my 
comments! 

Dr. Jerry W. Lewis 

555 E. Boyd Drive, Apt.C 

Baton Rouge, LA 70808 


This letter is in response to the Grigonis 





article “Sixth Generation Computers.” 
It is really a clarification of a point. 

As it is that only particles that travel 
faster than the phase-velocity of light 
cause the so-called Cherenkov Radia- 
tion and that the imaginary tachyons 
travel faster than the honest-to-god ve- 
locity of light, it must be that they do 
not radiate the aforementioned radia- 
tion but must most probably suck in 
radiation as they travel and as such 
could be said to emit black-body radia- 
tion, which leads us recursively to Max 
Planck’s original theories that were the 
basis for quantum mechanics; as such, 
tachyons could be shown to be primi- 
tive recursive and therefore could be 
incorporated in today’s computers via 
the so-called Ackermann function de- 
scribed in the same edition of DDJ. 

Thomas Kellar 
3104 Hassler St. 
Dayton, Ohio 65420 


Get rid of Grigonis. 
Samuel Hahn 
20800 Homestead Rd. 
Cupertino, CA 94305 


Along the Same Lines... 


Dear Editor, 

Your plaintive praise for the Macintosh 
user interface (August 1984 editorial) 
prompts these thoughts. In the future, 
eyeball-pointing sensors (already 
mounted on fighter pilot helmets) and 
voice recognition could provide effort- 
less control of the cursor and word pro- 
cessing functions, eliminating the need 
for a third hand for the mouse. 

The ultimate convenience in user in- 
terface may be control by thought, as 
suggested by the 30-year-old science 
fiction classic ‘“‘Forbidden Planet’’ 
(MGM, 1956). In this movie, based on 
Shakespeare’s “The Tempest,” a cen- 
tral computer with control of immense 
power generators and matter creation 
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machines is responsive to the thoughts 
of the planet’s inhabitants. Want 
breakfast? Just think about food and it 
appears on the kitchen table. They per- 
ished when the computer created the 
monsters of their subconscious. 

Sincerely, 

Robert C. Briggs 

1337 Rossway Ct. 

Los Altos, CA 94022 


A Couple of Corrections 


Dear Editor: 

While keying in Part II of “A New Li- 
brary for Small-C” (June 1984, DDJ 
No. 92), I encountered a syntax error 
on page 60. In the ITOD.C function li- 
brary on line 22, there is a missing 
semicolon. 


The line reads 
while(sz > 0) str[- -sz]=‘ ’ 


and should read 
while(sz > 0) str[- -sz]=‘ ’; 


I’ve not finished keying the whole li- 
brary but so far this is the only error 
I’ve encountered. 

Keep up the good work. I look for- 
ward to many months of association 
with your publication. 

Sincerely, 

Ken Brayton 

9702 Ivanho St. 

Spring Valley, CA 92077 
[Investigation revealed the most likely 
culprit to be a runaway knife in the 
production department. We'll try to 
keep them under better control. — 
Ed. | 


Dear Editor: 

I congratulate you on a most interest- 
ing August issue. In reply to the article 
“What’s The Diff’ by D. E. Cortesi, 
please print the enclosed information 
for your readers. There is a fundamen- 
tal flaw in the implementation, which I 
have corrected [see the listing on page 
10]. 

The original program will fail in 
‘“nass5” if a block move includes lines 
that have been affected by “‘pass4.” In 
fact, whenever a line is duplicated, as 
happens quite often in structured pro- 
gramming and in Pascal (e.g., begin, 
end, repeat), the symbol table pointer 
to any but the last duplicate line is lost. 
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Still Fixing Bugs 
The Hard Way? 





Ready to take the sting out of 
debugging? You can with 
Pfix86™ and Pfix86 Plus™, the 
most advanced dynamic and 
symbolic debuggers on the 
market today for PC DOS and 
MS-DOS™ programmers. 

What other debugger offers 
you an adjustable multiple- 
window display so you can view 
program code and data, break- 
point settings, current machine 
register and stack contents all 
at the same time? And, an in- 
line assembler so you can make 
program corrections directly in 
assembly language. Plus, pow- 
erful breakpoint features that 
allow you to run a program at 
full speed until a loop has been 
performed 100 times, or have 
the program automatically jump 
to atemporary patch area. 

Or maybe you’re tired of 
searching through endless piles 
of listings for errors? With Pfix86 
Plus you won't have to. You can 








locate instruction and data by 
the symbolic name and using 
the symbolic address. Handle 
larger, overlayed programs 
with ease. And, Pfix86 Plus is 
designed to work with our 
Plink86™ linkage editor. 

But that's not all. With a single 
keystroke you can trace an in- 
struction and the action will be 
immediately reflected in code, 
data, stack, and register win- 
dows. Pressing a different key 
will elicit a special trace mode 
that executes call and loop 
instructions at full soeed, as 
though only a single instruction 
were being executed. 

And you get an easily acces- 
sible menu that makes the 
power of our debuggers instant- 
ly available to the new user, but 
won't inhibit the practiced user. 

So, why struggle with bugs? 
Pfix86 by Phoenix. Pfix86 $195. 
Pfix86 Plus $395. 

Call (800) 344-7200, or write. 


haere 


Phoenix Computer Products Corporation 
1416 Providence Highway, Suite 220 


Norwood, MA 02062 


In Massachusetts (617) 762-5030 


Pfix86, Pfix86 Plus and Plink86 are trademarks of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation 


Circle no. 50 on reader service card. 


The required fix is to do the block 
moves (pass5) before applying Heck- 
el’s Rule 2 (pass 4a and 4b). 

The author correctly identifies a very 
inefficient loop at the end of the proce- 
dure “resolve.”’ His comment is that an 
additional pointer must be retained, at 
a cost of memory. I have changed the 
logic in this loop so only a single scan of 
the symbol table is needed. 

If memory is at a premium, the size 
of the symbol table can be reduced to 
about the same size as the input files! 
Contrary to intuition, most compares 
contain only about as many unique 
lines as the size of one input file. A 
protective check on the amount of heap 


and symbol table space should be add- 
ed to the procedure “store.” I have 
found that with a TPA of about 55K 
RAM, the program will compare two 
700 line Pascal files. 

I think that the author’s application 
of this intriguing algorithm is inappro- 
priate for microcomputers. An ed.com 
script to change an old file to a new file 
is not very useful outside the world of 
mainframe source code updates. Of 
greater interest is a general utility that 
displays line differences between two 
versions of a program, and DIFF can 
easily be altered to do so. 

I do not at all mean to be critical of 
D. E. Cortesi. Quite the reverse, I 


Letters Listing (Text begins on page 8) 


found his article and program fascinat- 
ing, and my comments reflect the fact 
that I have spent my time accordingly. 
Again, thank you. 
Steven I. Rothman 
President 
Copper Creek Systems 
P.O. Box 275 
One Copper Creek Road 
Glenwood, NM 88039 
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La 

De CRHHMHER HE HHH HEHEHE EXCERPT FROM DIFF .FAS 42H HEHEHE HHH HEHE ) 

4° (# FPASSS MUST PRECEDE FASS4! OTHERWISE LOSE FOINTER TO & 

Ss Unmatched lines in OA represent deletes: unmatched NA lines are 

6: inserts. Ignoring these, the matched lines should increase 

7: monotonically. When they don*t, when a discontinuity appears, 

S: a block-move 1s present. It is unclear how to record such moves 
* in a difference file, so here we find them and "unmatch" the 

ig: moved block, converting it into a delete/insert. 

ae Se 

12: There is a figure/ground ambiguity -- any block move can be 

i3! seen as a move-up of some lines or a move-down of others. We 

14: select the smaller of the two groups to be the "moved" group. *) 

sia 

16: FROCEDURE FASSS: 

i7: VAR ON: LINENUMS 

i A 

19. (* a discontinuity starts at OALOQI] and NACNI. figure out whether 

28; fewer lines have been moved up to NACNI or down from OACOI, 

eile and convert the smaller group to inserts and deletes. *) 

see FROCEDURE RESOLVE (VAR O,N: LINENUM) 

24: VAR XO,XN,FIRST,LAST: LINENUM: 

fer tae IVER GOERS 

Ze. S: SYMNUMs 

273: BEGIN 

Fa 

27n XO°=O03 (*measure the block starting at GALO] *) 

al REPEAT 

xp Te =OACXO].INDEX + 15 


mae AQS=XO+1 
owe UNTIL <7 = 
oA 


woe ANE =NG 
20: REPEAT 


10 


- OALCXOI]. INDEX) 


(measure the block 


moved up ta NACNI 


OR NOT OACXO].MATCHED: 


*) 
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38: 
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As 
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44 
AS 
Ae 
47% 
43° 
Ae 
wa fal 
viet, © 


wed ae 
es 
whe 
i or 


ator 
a7: 
58: 
59% 
bia: 
61: 
62: 


Bd st] 
ost 8 


64° 
Gods 
66% 
= oe 
6G 


Ti=NACXNI. INDEX + 15 
XN. =AN+1 
UNTIL (7 «<3 NACXNI. INDEX) OR NOT NALXNI. MATCHED: 


(* Unmatch a block of matched lines. We need the symbol table index 
here, and find it by scanning the table. This expensive operation 
could be @liminated by retaining the symbol index in OA 

ABSOLUTELY MUST FRECEDE FASS4, (WHICH CLOBRERS FOITER INTO 5S) 
CHANGED FOR AN INEXFENSIVE SINGLE FASS *) 


IF XO-0O < XN-N THEN 
BEGIN (e#naove block down*) 


FIRST:=O3 (¥Ffirst oline to convert*) 

LASTI=xXO-1¢ (#last oline to convert *) 

QOr=XOs (#for restart of scan %) 
END (# THEN) 


SLO 
REGIN (*#move block up*) . 
FIRST:=NACN]. INDEX: (*#first oline *) 
LASTI=FIRST+XN-N-is (*#last oline *) 
No=XNs (restart scan*) 
END: (*ELSE*) 


Si=os 
FOR T:=FIRST TQ LAST DO BEGIN 
WHILE (STESI.OLINE <« FIRST) OR (STLES1.OLINE = LAST) DO S:=S+13 
XO2=STCS].OLINES 
XN: =QAC XO]. INDEX: 
WITH OACXO] DO BEGIN MATCHED: =FALSE3; INDEX:=S3 END; 
WITH NACXN] DO BEGIN MATCHED:=FALSEs INDEX:=S3 END: 
S2=S+1 5 
ENDs (*FOR*) 
END: (#RESOLVE*) 


BEGIN (###FASSS#**) 

Ol=1ls Nees 

REPEAT 
WHILE NOT QALCOJ.MATCHED DO O:=O+15 (* skip deletes *) 
WHILE NOT NACNI.MATCHED DO Ni=N+is (* Skip inserts *) 
IF (N > NEWMAX) OR (0 > OLDMAX) THEN EXIT: 
IF OACOI].INDEX=N THEN BEGIN Of =0+15 N:i=N+is END 
ELSE RESOLVE(O,N)s (* discontinuity *) 

UNTIL FALSES 

END: (#FASSS*) 


End Listing 


11 


Dr. Dobb’s Journal, November 1984 


a 


1D) DO) OE NG 





by D.E. Cortesi, Resident Intern 
The Sky Is Falling 


Well, maybe not the sky, but most of 
the world’s information processing sys- 
tems will be falling soon. Or so say Je- 
rome and Marylin Murray, authors of 
Computers in Crisis (Petrocelli Books, 
1984, $32.95), a copy of which came to 
this office for review. The Murrays’ 
thesis, as summarized in sensational 
terms on the book jacket and in its first 
chapter, is the answer to a computer- 
illiterate journalist’s prayer—an im- 
pending disaster of major proportions 
caused by blind reliance on computers, 
with overtones of government inertia 
and commercial callousness. It taps into 
sO many modern archetypes that we 
predict that the Murrays will soon be 
appearing on talk shows everywhere. 

Since considerably more hot air than 
illumination will be generated in the en- 
suing flap, we thought our readers 
would like a technically literate review 
of the book. 

A FIPS standard determines how 
data should be stored in computer files. 
It applies primarily to programs writ- 
ten in COBOL or RPG that run on IBM 
370 mainframes. In such programs, 
decimal numbers usually are stored in 
what IBM calls packed decimal for- 
mat: BCD digits with the least-signifi- 
cant four bits reserved for a sign digit. 
The FIPS standard says dates should 
occupy four bytes in the form 
Oyymmdds, where yy is the year, mm 
the month, dd the day, and s the sign. 
Since these dates are also decimal 
numbers, they may be compared with 
each other. 

An awful lot of such dates appear in 
data bases everywhere. The Murrays 
say that on Monday, January 3, 2000, 
a lot of programs are going to start do- 
ing incorrect things because a date of 
0000103 is numerically less, not great- 
er, than one of 0991231. And if noth- 
ing is done, they will probably be 
12 


proved right. We find it hard to believe 
that nothing will be done, although this 
book may serve a useful purpose in fo- 
cusing attention on the problem sooner 
than might otherwise happen. 

The Murrays’ main point is how to 
fix the problem. Once past the sensa- 
tional claptrap of the first chapter, the 
reader finds a sound, interesting tu- 
torial on the history of the calendar 
and a sensible proposal for a new stan- 
dard format for dates. The suggested 
form is yyyyddds. This “‘neo-Julian” 
date, as packed decimal, fits in the 
same four bytes as the old version, so 
you won't have to reconstruct your 20- 
gigabyte IMS data base. 

There you have the meat of the 
book; we’ve just saved you $32.95. The 
bulk (and we use the word advisedly) 
of the volume is a set of subroutines for 
the conversion and manipulation of 
dates. These are presented in what the 
authors call pseudo-code. The usual 
purpose of pseudo-code is to clarify 
and stress the structure of an algo- 
rithm. Unfortunately, the Murrays use 
a pseudo-code style that is actually Jess 
structured than typical BASIC (they 
deny themselves even the use of a for 
statement). 

The subroutines are also presented 
in 370 assembly language. Fortunately 
for the publishers, most reviewers 
won't be able to read IBM ALC. We do 
know a TRT from a ZAP, and we 
weren't impressed. The routines aren’t 
reentrant, they use numeric condition 
codes for branches, they take their ar- 
guments in labeled variables not regis- 
ters, and they commit other coding 
Sins. 

The grand catastrophe forecast by 
this book applies only to programs that 
store dates in the FIPS format for 
packed decimal; those that use a differ- 
ent encoding for dates are exempt or at 
any rate will get no help here. Recom- 
mended only for those who work with 





software that might be affected—and 
then only if they can recover the ridicu- 
lous cover price from their employers. 


APL: A Rigorous Approach 


Now, if you want a book with real 
body, let us recommend the Draft Pro- 
posed Standard: Programming Lan- 
guage APL, available from the ACM 
Order Department, P.O. Box 64145, 
Baltimore, MD 21264 for $25. APL 
documentation has always been clear 
and precise, and that tradition has 
been carried forward even into such 
anti-linguistic surroundings as an 
ANSI subcommittee, ordinarily the 
milieu of the mumble. 

That it is written in tight, grammati- 
cal English is not the most remarkable 
thing about this standard. What makes 
it really unique is that it specifies in full 
the semantic behavior of an APL imple- 
mentation. Some standards restrict 
themselves to syntax; others attempt to 
specify behavior only for selected parts 
(as when the Pascal standard struggles 
to spell out the behavior of files). This 
standard claims to be “essentially an 
implementation of APL in a restricted 
form of English.” When we first looked 
at it, we exclaimed, “Hey, it’s a func- 
tional spec!” That impression lingers. If 
you wanted to write your own APL in- 
terpreter, you could almost do it by cod- 
ing the lines of the Draft Standard into 
a programming language. It’s that 
explicit. 


Microsoft's MacBug 


We asked if newer Microsoft BASICs 
would still misinterpret the command: 


SAVE “PROG,A 


Our esteemed editor tried it on his PC 
and it didn’t fail—or at least it didn’t 
write a binary file named PROG,A. But 
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Richard D. Norling of Washington, 
DC, tried it on a Mac. “The old bug 
still lives,” he writes, “in the version 
Microsoft cooked up for the Macin- 
tosh. However, this particular bug 
does not cause further trouble [from 
the filename]. The Finder, Apple’s 
disk operating system, is capable of 
handling filenames containing 
commas.” 

Norling had another problem, 
though. He says there is “a killer bug 
that causes only part of your program 
to be saved to disk if you touch a key 
while the save is in progress. No warn- 
ing, and no way to recover since you 
aren't likely to discover the problem 
until you try to load the program at 
your next session. Microsoft actually 
issued a new version that fixes this bug 
in April [ but] has left [users] to discov- 
er the bug on their own. You are told 
about the new version only if you call 
to complain.” 

We don’t see the difficulty. If you 
keep your hands on the MacMouse 
where they’re supposed to be, you 
won't be hitting the keyboard during a 
save anyway, right? 


BASIC Haters Unite 


Perry Dinsmore of Knoxville, TN, 
likes controversy and wants to whip 
some up in this column. We don’t 
mind. All right, Perry, speak your 
piece. 

“Discussions of new computer lan- 
guages correctly point out the advan- 
tages of these languages over older 
ones such as BASIC. The question re- 
mains as to whether there is anything 
that can be done in a newer language 
that cannot be done, with a little more 
effort, in BASIC. 

“TI would like to challenge anyone to 
write a program in any language whose 
end results cannot be duplicated in BA- 
SIC. If such a program proves impossi- 
ble, then a second challenge is to write 
the non-BASIC program that requires 
the longest BASIC program to emulate 
it. For example, if a 12-line program in 
another language required 120 lines 
(of comparable length) of BASIC to do 
the same thing, the expansion factor 
would be 10. What is the largest possi- 
ble factor and which other language 
achieves it?” 

If you want to respond to Perry’s 
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challenge, please don’t just send a sam- 
ple of code in Forth, APL, C, or what- 
ever, and say “match that.” Life is too 
short for us, and probably for Perry, to 
sit around coding up BASIC solutions 
to other people’s programs. You gotta 
include both programs, the short one 
and the BASIC version you think is 
equivalent. 


Throughputting 


We've had 10 or so letters from people 
who’ve measured the PIP or COPY 
throughput of their disk systems. We 
plan to recap all the numbers in the 
January Clinic. When you read this, 
we'll have already written that column, 


but there’s no reason we wouldn’t re- 
turn to the subject again if more num- 
bers came in. So far we haven’t got 
anything for a Mac nor for any of the 
appliance machines like Atari or Com- 
modore. Nor for an Apple under any 
DOS. Comparative throughput figures 
for a native Apple DOS versus a CP/M 
softcard would be interesting. We have 
one extremely impressive figure from a 
Zenith Z-100 running ZDOS (MSDOS 
1.1); it would be nice to have corrobo- 
ration of it. 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 


A POWERFUL 68000 DEVELOPMENT 
ENVIRONMENT FOR YOUR Z80 SYSTEM 
CO01668 ATTACHED RESOURCE PROCESSOR 


68000 Assembler 
C Compiler 
Forth 

Fortran 77 


6 MHZ 68000 


CP/M-68K 


Pascal 
BASIC-PLUS 
CBASIC 
APL. 68000 


768K RAM 


4x 16081 MATH CO-PROCESSORS CPM80 RAM DISK 


Develop exciting 68000 applications on your current Z80 based CPM system using 
powerful mini-frame like 32 bit programming languages. And then, execute them at 
speeds that will shame many $100K plus minicomputer systems. 


The CO1668 ATTACHED RESOURCE PROCESSOR offers a Z80 CPM system owner a 
very low cost and logical approach to 68000 development. You have already spent a 
small fortune on 8 bit diskette drives, terminals, printers, cards cages, power 
supplies, software, etc. The CO1668 will allow you to enjoy the vastly more powerful 
68000 processing environment, while preserving that investment. 


CO1668 ATTACHED RESOURCE PROCESSOR SPECIAL FEATURES: 


e 68000 running at 6 Mhz 
¢ 256K to 768K RAM (user partitioned between 
CPU and RAM Disk usage) 
Up to four 16081 math co-processors 
Real time clock, 8 level interrupt controller 
& proprietory I/O bus 
Available in tabletop cabinet 
Delivered w/ sources , logics, & monolithic 
program development software 


¢ Easily installed on ANY Z80 CPM system 

¢ CP/M-68K and DRI’s new UNIX V7 compatible 
C complier (w/ floating point math) - standard 
feature 

¢ Can be used as 768K CPM80 RAM Disk 

¢ Optional Memory parity 

¢ No programming or hardware design required 
for installation 

© Optional 12 month warrantee 


PRICES START AS LOW AS $899.00 for a CO1668 with 256K RAM, CPM68K, C Complier, Sources, 
Prints, 200 page User Manual, Z80 Interface, and 68000 System Development Software. 


For further information about this revolutionary product or our Intel 8086 Co-Processor, please send $1 


[no checks please] or call: 


Hallock Systems Company, Inc. 


262 East Main Street 


Frankfort, New York 13340 


(315) 895-7426 





RESELLER AND OEM 
INQUIRIES INVITED. 
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by Robert Blum 


I know of nothing more wasteful than 
setting aside an idea because the diffi- 
culty of transforming it into a program 
seems to outweigh its benefit. The pro- 
liferation of data base packages over 
the past several years proves that I’m 
not the first and certainly won’t be the 
last to feel this way. 

I’ve tried almost every data base 
package available for CP/M-80; I pre- 
fer to call them application generators. 
Each has its own unique merits, and all 
are capable not only of making the 
transformation from idea to program 
less time-consuming than a solution 
based in BASIC or some other high- 
level programming language, but also 
of making the job easier to program. 
For me, however, the benefit of using 
one of these packages is not great 
enough to make me switch from as- 
sembly language for almost all of my 
work. 

Perhaps I would be singing a differ- 
ent tune if I had not found the right 
programming tools. Fortunately for 
me I did, and I couldn’t be happier, 
writing programs encumbered by only 
my own shortcomings. 


Programmer's Tool Chest 
improved 


SYSLIB, the most complete collection 
of assembly language subroutines that 
I am aware of, is now available in its 
third revision—SYSLIB3. In this re- 
lease all known bugs in the public do- 
main revision, level 2, have been cor- 
rected—there were only a few—and a 
number of new subroutines have been 
added. The library has also been re- 
structured to operate completely 
stand-alone, without any external as- 
sistance from other libraries. 
Achieving this goal has meant that a 
few of the subroutines from previous 
versions are no longer available. They 
were intended for use in conjunction 
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with ZCPR, a Unix-like shell written 
also by Richard Conn, and required 
support modules from that product to 
operate properly. In the current release 
of SYSLIB, all interdependencies be- 
tween it and ZCPR have been severed. 
The subroutines contained in SYSLIB 
are now fully supported within them- 
selves, and any ZCPR-specific subrou- 
tines or support modules have been 
placed into a separate library that is 
distributed with the ZCPR product. 

As I have come to expect, the many 
new features added to this release of 
SYSLIB are well thought out and ad- 
dress some deserving areas of the 
CP/M interface. One of the new fea- 
tures, Switched Output, makes it pos- 
sible to dynamically switch character 
output to the console or printer, or si- 
multaneously to both, simply by 
changing a single memory variable. 
For example, to display the HL regis- 
ter pair as five decimal characters on 
the printer requires only the following 
three instructions: 


LD A,80h ;direct output to 
sprinter 

LD (SCTLFL),A _ ;put into memory 
variable 

CALL SHLDC ;output HL 


;register pair 


To direct the output to the console 
or simultaneously to the printer and 
console is as simple as changing the 
output direction byte to the proper val- 
ue and storing it into the memory vari- 
able SCTLFL. You can use this same 
dynamic switching logic for many of 
the other character output and data 
format conversion subroutines as well. 

The disk I/O routines have been en- 
hanced to include random sector ac- 
cess and buffered single-byte disk I/O, 
utilizing buffers defined within (and 
the size chosen by) the application pro- 
gram. You can realize dramatic speed 


improvements when data is buffered in 
memory blocks of at least the same 
proportion as the physical disk sector 
size. This is especially true when multi- 
ple files are open at the same time. 
Next month I will go into a more elab- 
orate discussion of how buffered disk 
I/O works and why the throughput 
gains are so great, as evidenced by sev- 
eral benchmark tests that I have run. 

Documentation for SYSLIB now is 
contained in over 20 on-line help files. 
Each of the files has been rewritten for 
this release to explain more completely 
how to use each of the over 300 subrou- 
tines. In prior releases of SYSLIB, the 
on-line help facility was augmented by 
a large volume of printed documenta- 
tion. Although unavailable at this time 
for SYSLIB3, I understand that efforts 
are being made to provide printed doc- 
umentation at a future date for those 
who desire it. 

Release 3 distribution of SYSLIB 
and ZCPR is being handled through 
Echelon, Inc., a company headed by 
Frank Gaudé, the author of DISK7, 
COMM7, and other notable public do- 
main programs. Included with the pur- 
chase of the four-disk set containing 
SYSLIB is a newsletter subscription 
dealing with the Echelon family of 
products. Even though distributed 
commercially, SYSLIB is priced at 
only $29.00, which includes complete 
source code for each of the subroutines 
and a license to use the library in any 
nonprofit way you may desire. 

I’ve been using SYSLIB for over a 
year now with only favorable results to 
report. For the experienced program- 
mer, I know of no better way to reduce 
the coding redundancy inherent to as- 
sembly language programming and in- 
terfacing to CP/M. For the beginner, I 
cannot think of a better way to learn. 
For further information on the products 
mentioned here, contact Echelon, Inc., 
101 First Street, Los Altos, CA 94022. 
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ALL AT ONCE! 


AND NEVER A “LOCKED OUT” USER! 





Customer Id: Acme 

Customer Name: Acme !ndustries 

OFc-Teli@at-liiale bw-V- Wm Og-lella Mi luiliew sit) 
Current Balance: P4\018) 
30 Day Balance: 4000 
60 Day Balance: 1500 


90 Day Balance: 0 
siiittale F 
Address: 2701 South Bayshore Drive 
City: Miami State: FL Zip: 33133 
Shipping: 
Address: 913 Majorca Avenue 
OF) a's Ore) ¢-] MCr-1e)(-1 ns) (-] (ol gf M4] OM RRL 
Phone: 305-856-7503 Contact: Gerald Green 





DataFlex is the only application development _ takes to actually write it to the file! The updated 
database which automatically gives you true record is then immediately available. The 
multi-user capabilities. Other systems can lock number of users who can access, and change, 
you out of records or entire files for the full records at the same time is limited only by 
time they are being used by someone else. the number of terminals on your system or 
DataFlex, however, locks only the databeing —_ network. Call or write today for all the details 
changed, and only during the micro-seconds it on DataFlex...the true multi-user database. 


DATA. 





DATA ACCESS CORPORATION 
8525 SW 129 Terrace, Miami, FL 33156 (305) 238-0012 
Telex 469021 DATA ACCESS Cl 
See us at Comdex Booth 3349 


Compatible with CP/M-80, MSDOS networks, MP/M-86, Novell Sharenet, PC-Net, DMS Hi-net, TurboDOS multi-user, Molecular 
N-Star, Televideo MmmOST, Action DPC/OS, IBM PC w/Corvus, OMNINET, 3Com EtherSeries and Micromation M/NET. 


MSDOS is a trademark of Microsoft. CP/M and MP/M are trademarks of Digital Research. 
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CP/M V2.2: PIP Patch 


Trying to save time by not verifying 
the output when copying files with PIP 
will eventually lead to files that cannot 
be read later on. Rushing seems to be 
my normal pace, and it began to take 
its toll in the number of files I was re- 
creating because I was more intent on 
getting done than spending a few extra 
minutes to ensure that my files were 
secure—that is, until I put into PIP the 
following patch, which forces the veri- 
fy (V) option on at all times. 

This patch is not approved by DRI; 
therefore, I suggest that you exercise 
extreme caution when installing it on 
your system. The installation steps are 
straightforward and shouldn’t take 
more than a few minutes, but do be 
mindful not to overwrite anything of 
value. 

The listing (at right) shows the steps 
I took to install the verify patch on my 
system. The first step is to verify that 
the PIP program being modified is ver- 
sion 1.5; this is the only version of PIP 
that I know the patch to work with suc- 
cessfully. To verify your version num- 
ber, first load PIP-COM into memory 


NEW Ver. 2.2 
Easier — More Power 











Vi=N Re SD Fo 


WINDOWS 
FOR C’ 


FOR THE IBM PC +COMPATIBLES 
Lattice C, CI-C86, MWC86 
DeSmet C, Microsoft C 


WINDOWS FOR C $150 
(specify compiler & version) 
Demo disk and manual 
(applies toward purchase) 
Dealer Inquires welcome 


S 30 
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with SID or DDT and display memory 
between 200H and 240H. At 0233H 
should begin the version number, 
which must be 1.5. Next change the 
single byte at 0B34H from 1FH to 
37H. Finally save the modified pro- 
gram back onto disk under a new name 
ready for testing. 

To ensure that I had entered my 
patches correctly, I timed how long it 


took to copy the same test file with an 
unaltered version of PIP using the veri- 
fy option and again with the newly al- 
tered version of PIP. The two resulting 
times were practically equal, which 
satisfied me that my modifications 


were correct. 
DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 


Listing —PIP Verify Patch 


B>SID PIP.COM 

CP/M 3 SID — Version 3.0 
NEXT MSZE PC END 

1E0O 1EO0 0100 C8FF 
#D200,240 


0200 20 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 29 COPYRIGHT (C) 
0210 20 31 39 37 39 2C 20 44 49 47 49 54 41 4C 20 52 1979, DIGITAL R 
0220 45 53 45 41 52 43 48 2C 20 20 50 49 50 20 56 45 ESEARCH, PIP VE 
0230 52 53 20 31 2E 35 03 01 06 01 00 24 24 24 20 20RS 1.5..... $$$ 


0240 20 

#SB34 

0OB34 1F 37 

0B35 D2. 
#\VW/PIPNEW.COM, 100,1E00O 
OO3Ah record(s) written. 
#GO 


End Listing 


ADVANCED SCREEN MANAGEMENT 
MADE EASY 


ADVANCED FEATURES 


Unlimited windows and text files 
Word wrap, auto scroll 
Horizontal and vertical scroll 
Fast! + No flicker or snow 

No memory in screen buffers 
Complete color control 

Auto memory management 
Save and move window images 
Easy overlay and restore 
Format and print with windows 
Highlighting 


WINDOWS++ 


Much more than a window display 
system, Windows for C is a video 
display toolkit that simplifies all 
screen management tasks. 


A PROFESSIONAL SOFTWARE TOOL FROM 


CREATIVE SOLUTIONS 


21 Elm Ave, Box D11, Richford, VT 05476 





Circle no. 15 on reader service card. 


e Menus 
e Data screens 
e Form printing 


SIMPLIFY « IMPROVE 
e Help files 
e Editors 
e Games 


ALL DISPLAYS 


C SOURCE MODULES FOR 


pop-up menus, multiple window 
displays, label printer, cursor 


control, text mode bar graphs. 
plus complete 
building block subroutines 





DESIGNED FOR 
PORTABILITY 


FULL SOURCE AVAILABLE 


NO ROYALTIES 
802-848-7738 


Master Card & Visa Accepted 
Shipping $2.50 
VT residents add 4% tax 
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Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro- 
processor-based product, there’s a good 
chance it was developed with Avocet 
cross-assemblers. 


Avocet cross-assemblers are easy to use. 
They run on almost any personal com- 
puter and process assembly language for 
the most popular microprocessor families. 


Your Computer Can Be A 
Complete Development System 
Avocet has the tools you need to enter 


and assemble your soft-ware and finally 
cast it in EPROM: 


VEDIT Text Editor makes source code 
entry a snap. Full-screen editing plus a 
TECO-like command mode for advanced 
tasks. Easy installation - INSTALL pro- 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
MsDGs PEDOS 4: 42s $150 


EPROM Programmers let you pro- 
gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
computer or terminal. No personality 
modules! On-board intelligence provides 
menu-based setup for 34 different 
EPKOMS, EEPROMS and MP Us (40-pin 
devices require socket adaptors). Self- 
contained unit with internal power supply, 
RS-232 interface, Textool ZIF socket. 
Driver software (sold separately) gives 
you access to all programmer features 
through your computer, lets you down- 
load cross-assembler output files, copy 
EPROM to disk. 


Model 7228 Advanced Programmer 
— Supports all PROM types listed. Super- 
fast “adaptive” programming algorithm 
programs 2764 in 1.1 minutes. 


Model 7128 Standard Programmer — 
Lower-cost version of 7228. Supports all 
PROM types except “A” versions of 2764 
and 27128. Standard programming algo- 
rithm programs 2764 in 6.8 minutes. 


Model 7956 and 7956-SA Gang Pro- 
grammers — Similar features to 7228, 
but program as many as 8 EPROMS at 
once. 7956-SA stand-alone version copies 
from a master EPROM. 7956 lab version 
has all features of stand-alone plus RS- 
232 interface. 

EPROM: 2758, 2716, 2732, 2732A, 2764, 2764A, 
27128, 27128A, 27256, 2508, 2516, 2532, 2564, 68764, 
68766, 5133, 5143. CMOS: 27C16, 27C32, 27C64, 
MC6716. EEPROM: 5213, X2816A, 48016, 12816A, 


5213H. MPU (w/adaptor): 8748, 8748H, 8749, 
8749H, 8741, 8742, 8751, 8755. 


7228 Advanced Programmer $ 549 
7128 Standard Programmer 429 
7956 Laboratory Gang Programmer 1099 
7956-SA Stand-Alone Gang Programmer 879 
PDV Driver Software 95 
481 8748 Family Socket Adaptor 98 
511 8751 Socket Adaptor 174 
755 8755 Socket Adaptor 135 


CABLE RS-232 Cable (specify gender) 30 


HEXTRAN Universal HEX File Con- 
verter — Convert assembler output to 
other formats for downloading to de- 
velopment systems and target boards. 
Also useful for examining object file, 
changing load addresses, extracting parts 
of files. Converts to and from Intel, 
Motorola, MOS, RCA, Fairchild, Tek- 
tronix, Tl, Binary and HEX/ASCII Dump 
formats. For CP/M, CP/M-86, MSDOS, 
PGs ss ee Se ee $250 


Ask about UNIX. 
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Would you hire an entire band when 
all you need is one instrument? Of 
course not. 


So why use a whole orchestra of 
computers when all you need is one 
to develop software for virtually any 
type of micro-processor? 


The secret? Avocet’s family of 
cross-assemblers. With Avocet 
cross-assemblers you can develop 
software for practically every kind of 
processor — without having to 
switch to another development 
system along the way! 





AVOCET’S SUPERB 68000 CROSS- 
ASSEMBLER — With exhaustive field 
testing completed, our 68000 assembler 
is available for immediate shipment. 
XMAC68K supports Motorola standard 
assembly language for ‘the 68000 and 
68010. Macros, cross-reference, struc- 
tured assembly statements, instruction 
optimization and more. Linker and 
librarian included. Comprehensive, well- 
written manual. XMAC682 for MK68200 
has similar features. 


Call us toll-free for some straight talk 
about development systems. 


1-800-448-8500 


(in the U.S. Except Alaska and Hawaii) 
VISA and Mastercard accepted. All popular disc formats now available 
--please specify. Prices do not include shipping and handling -- call for exact 


quotes. OEM INQUIRIES INVITED. 


** Trademark of Microsoft 


*Trademark of Digital Research 


AVOCET 








SYSTEMS INC: 


DEPT. 1184-DDJ 

804 SOUTH STATE STREET 
DOVER, DELAWARE 19901 
302-734-0151 TELEX 467210 








Adding Primitive [/O Functions 


to muLISP 


by Michael Carter 
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ne advantage of writing your 
() own software is that you can 

tailor it to your personal taste. 
However, writing software is a time- 
consuming task, and most of us depend 
upon proprietary packages for most of 
our software needs. Although the 
range and quality of software are im- 
proving constantly, a proprietary pack- 
age seldom performs exactly as we 
want. Usually we conform to the con- 
straints of the package, but occasional- 
ly the gap between what we want and 
what we get 1s so large that it is worth- 
while modifying the package. 

This article describes my attempt to 
overcome a fundamental gap in a pro- 
prietary package. Although I deal with 
a particular example of a particular 
language, the general principles I dis- 
cuss will apply to any modification. 
These principles concern where to lo- 
cate the modifications, how to pass in- 
formation to them, and how to recover 
information from them. 

The language that is the subject of 
this article is LISP. I shall refrain from 
making a case for the use of this lan- 


The Problems 
The muLISP implementation of LISP, 
developed by the Soft Warehouse and 
distributed by Microsoft, offers more 
than just a LISP interpreter. It is a 
LISP program development system 
complete with its own screen editor. 
This well conceived and executed 
package is a joy to use once you get the 
hang of it. Missing from the package, 
though, are any facilities for primitive 
input and output. muLISP has the usu- 
al console input and output functions, 
functions for printer output, and buf- 
fered disk I/O, but it provides no way 
to directly control any of the other I/O 
ports typically found on a microcom- 
puter. You would need such a facility, 
for example, to control a robot—a task 
for which LISP is admirably suited. All 
that is required is two additional func- 
tions: IN[ port] and OUT[ port, byte]. 
Fortunately, the authors of muLISP 
foresaw the need for additional func- 
tions and provided a means of linking 
them into muLISP. They left room for 
four jump instructions starting at loca- 
tion 103H. Up to three arguments can 


“The principles I discuss for modifying proprietary 
software concern where to locate the modifications, 
how to pass information to them, and how to 
recover information from them.” 





guage. Suffice it to say that LISP is one 
of the earliest computer languages and 
has remained the mainstay of artificial 
intelligence. LISP or its derivatives will 
become more common on microcom- 
puters as the applications become 
more sophisticated. 


Michael Carter, Centre for Economic 
Policy Research, The Australian Na- 
tional University, P.O. Box 4, Canber- 
ra, ACT 2600, Australia. 


be passed to each function in the HL, 
DE, and BC register pairs. The value 
of the function is returned via the HL 
register pair. (Since muLISP uses ad- 
dress typing to determine a function’s 
type, all machine language routines 
must begin in low memory; hence the 
jump table at 103H must be used.) 

In attempting to use these facilities, 
the programmer faces three problems: 
(1) Where in memory to locate the 

machine language functions 
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(2) How to interpret the arguments 
that are passed 

(3) How to return a value to muLISP 

I will elaborate successively on each of 
these problems and my own solutions. 
Basically the task is to add two new func- 
tions to muLISP (IN and OUT) insucha 
way that the programmer can regard 
them as first-class LISP functions. 

My discussion of the first problem 
and its solution is rather elaborate 
since it has general application and 
should be of interest to many people 
who are still becoming familiar with 
CP/M. However, neither problem (2) 
nor (3) is specific to LISP or muLISP. 
Modifying or expanding the facilities 
of any proprietary program will re- 
quire some investigation of the means 
by which information is stored and the 
suitable adaptation of the package’s 
facilities to new uses. While the partic- 
ular solution presented here is specific 
to muLISP, I hope that readers will be 
able to draw some general principles 
from my experience that will help 
them in modifying other packages. 
Therefore, this article may be consid- 
ered a general primer on interfacing 
new functions to existing programs. | 
used Z80 mnemonics throughout from 
personal preference, but the only spe- 
cifically Z80 instruction is the block 
move LDIR, which you can readily re- 
write in 8080 code. 


Locating the Functions 

The first problem is quite general and 
one that confronts any programmer at- 
tempting to add to the functions of a 
CP/M program: Where can we find 
room in'the computer for the addition- 
al code? The memory map for muLISP 
running in a standard CP/M system is 
illustrated in Figure | (at right). mu- 
LISP uses all the memory between 
100H and the BDOS for its own pur- 
poses; muLISP itself occupies 10K 
starting at 10OH; and muLISP uses the 
remainder of the available memory for 
data storage. This memory usage is 
typical of CP/M programs. 

In some systems CP/M is configured 
to operate in less than the total avail- 
able memory, leaving a block of RAM 
at the top of the memory space (Figure 
2, at right). You may use this RAM to 
hold special-purpose software such as 
video display or printer drivers, as a 
printer buffer, or not at all. Whatever 
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2 Working 


Storage 


muLISP Memory location 0005 contains a jump - : 


to the location BDOS. 


Figure 1 


Functions 


Working 
Storage 


muLISP Memory location 1 0005 contains a he 


to the location BROS 


Figure 3 





the reason for its existence, any such 
memory above CP/M could serve to 
contain the additional muLISP 
functions. 

For obvious reasons most CP/M sys- 
tems are configured to use all the avail- 
able memory, and the operating sys- 
tem is located as high in the address 
space as physically available memory 
will allow. Remember also that you 
can readily adjust the size of a CP/M 
system (line TOP in Figure 2) by run- 
ning the provided CP/M _ utility 
MOVCPM. One solution to our prob- 
lem would be to create a special ver- 
sion of CP/M for muLISP—a version 
of the operating system that does not 
occupy all the available memory, leav- 
ing a block of unused RAM to contain 
the new muLISP functions. The disad- 
vantage of this solution is that we have 
to cold boot (reset) the system every 
time we want to run muL ISP and every 
time we finish so that the appropriate 
version of CP/M is loaded at the right 
time. 

This is not only tedious, it is unnec- 
essary. Rather than creating a special 
version of CP/M for use with muLISP, 
we can have muLISP modify the sys- 
tem appropriately whenever it is run. 
Figure 3 (page 19) illustrates this more 
convenient and elegant solution. With 
a little subterfuge we create a “hole” 
immediately below CP/M to contain 
the machine language functions so that 
muLISP thinks it is operating in a 
slightly smaller system than it really is. 
Consequently it takes up somewhat 
less of the available memory, leaving 
space for the new functions. 

All CP/M programs should interface 
with the operating system by means of 
a single entry point at memory location 
5; that is, programs can utilize the 
functions provided by CP/M (e.g., 
write to CONSOLE, open disk file) by 
a call to location 5 with the desired 
function encoded in register C. Loca- 
tion 5 in its turn contains a jump in- 
struction to the base of the CP/M 
BDOS, which also marks the beginning 
of CP/M in memory (see Figure 1). All 
space between 100H and this point is 
available for user programs. : 

Furthermore, programs (muLISP 
included ) can use the destination of the 
jump instruction at location 5 to calcu- 
late how much memory is available for 
their own purposes. By modifying the 
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destination at location 5, we can force 
muLISP to confine its activities to a 
smaller region of RAM, thus freeing 
some memory for the functions IN and 
OUT (see Figure 3). 

Achieving this subterfuge is the first 
task of the subroutine INIT shown in 
the listing on page 23. It modifies the 
destination at location 5 to point to a 
location 100H lower than the BDOS. 
When mu LISP calculates the size of the 
available memory, it will use this lower 
value. In this way we trick muLISP into 
regarding the 100H bytes of RAM im- 
mediately below the BDOS as unavail- 
able, which frees 100H bytes for I/O 
routines. But how do we persuade mu- 
LISP to execute this piece of code? 

Like all CP/M programs, muLISP 
loads and starts execution at 1OOH. The 
first instruction is a jump to another lo- 
cation, which we will call START: 


0100 START 


jmp 
By patching in a jump to INIT at loca- 
tion 1OOH of muLISP and finishing the 
subroutine INIT with a jump to 
START, we convince muLISP to exe- 
cute the initialization routine before it 
begins executing its own code. 

The address at location 5 serves a 
dual purpose: it indicates to the user’s 
program the size of the system in 
which it is running, and it provides a 
pathway for operating system calls. 
Therefore, we must provide a further 
jump to BDOS as the first instruction 
of this reserved page of memory (see 
listing). In this way a call to location 5 
will find its way correctly to the BDOS, 
albeit after two jumps. The new func- 
tions IN and OUT can immediately 
follow the jump to BDOS in this re- 
served page of memory assembled for 
execution in this location. Locations 
103H and 106H are patched to jump 
to IN and OUT. 

This solves the problem of a location 
for the new functions. But how do we 
get them there? The simplest way is to 
tack them on to the end of muL ISP fol- 
lowing the function INIT and to add a 
relocator to INIT. The relocator simply 
moves the code for IN and OUT up to 
its ultimate destination at BDOS: 
100H. These functions are assembled 
for execution at their ultimate address. 
This is the purpose of the pseudo-op 
-PHASE in the listing. This relocation 


facility, which is available in the MAC- 
RO-80 assembler package, makes this 
procedure easy. It is not essential, how- 
ever. The functions can be assembled 
with ASM at their execution address, 
loaded with DDT, and then moved 
down to the end of muLISP for saving 
on disk. 

The patch in the listing is assembled 
for a particular system size, implied by 
the address of BDOS. If the available 
memory changes, the patch must be re- 
assembled to fit the altered system. I 
chose this implementation for simplic- 
ity, since I do not frequently alter my 
system size. You can overcome this re- 
striction but at the cost of greater com- 
plexity. Interested readers might like to 
consult the articles by Gary Kildall 
(DDJ, February 1978) and John Palm- 
er (DDJ, December 1981) on automatic 
relocation. In this particular example 
you could easily rewrite IN and OUT in 
relocatable form since the only absolute 
reference is the call to GETNUM. 

My discussion so far has applied 
quite generally to CP/M. Now, howev- 
er, it is necessary to delve more deeply 
into the structure of muLISP. 


Evaluating the Arguments 
I said earlier that up to three argu- 
ments can be passed to a machine lan- 
guage function in the HL, DE, and BC 
register pairs. It is important to note 
that the value of the argument is not 
passed to the machine language func- 
tion but rather a pointer to its internal 
representation. To interpret the argu- 
ments, you must understand how data 
is represented internally in muLISP. 
The following information is taken 
from Section II of the muLISP Refer- 
ence Manual. 

muLISP recognizes three primitive 
data types: names, numbers, and 
nodes. Each has a different internal 
representation. To simplify the ma- 
chine language functions, I have re- 
stricted them to accept and return 
numbers only. Note that this does not 
restrict their generality, since any data 
type can be transmitted as a sequence 
of numbers. I will confine my attention 
here to the numbers data type and 
merely note that the other data types 
have a similar representation. Those 
interested in further details should see 
Section II of the muLISP manual. 

A number (in muLISP) consists of 
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three consecutive pointers: 


number eee vector 


A pointer is a 16-bit value (2 bytes) 
that contains a memory address—a 
pointer to another location. The first 
pointer (number) points to itself; that 
is, it contains its own address. The sec- 
ond pointer or cell (sign) indicates 
whether the number is positive or neg- 
ative. The third cell (vector) points to 
the machine representation of the nu- 
merical value of the number. 

In contrast to most languages, inte- 
gers in muLISP are not confined to 16- 
or 32-bit values. In fact, numbers up to 
approximately 10°'! can be represent- 
ed exactly by allowing the length of the 
binary representation of a number to 
be arbitrary and including the length 
in that representation. The machine 
representation of the numerical value 
of a number consists of a single-byte 
byte counter preceded by the number 
of bytes required to express the num- 
ber in binary (including the byte 
counter). The vector cell is a pointer to 
this in binary representation—in fact 
it points to the byte counter. Contrary 
to the manual, the byte counter follows 
rather than precedes the bit vector, 
which itself is stored most significant 
bit first. The number zero is a special 
case; it is represented by a single byte, 
the byte counter, which has the value 
one. 

The argument that is passed to a 
machine language function in one of 
the register pairs (assuming a numeri- 
cal argument) is a pointer to the num- 
ber cell of the internal representation 
of the number. For example, suppose 
that the first argument is the value six. 
Then the register pair (HL) will point 
to a muLISP number that has the value 
six. The internal representation of this 
is depicted in Figure 4 (page 22). 

We are now in a position to under- 
stand the subroutine GETNUM in the 
listing. This subroutine returns the nu- 
merical value of the argument that is 
pointed to by the HL register pair. 
GETNUM skips over the number and 
sign cells to the vector cell. The value 
of this pointer is loaded into the HL 
register pair, which now points to the 
byte counter. If the value of the byte 
counter is one, the value of the number 
is zero, which GETNUM returns. If 
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Debugging Bugging You? 
Torpedo program crashes and debugging delays with 
debugging dynamite for the IBM PC... 


UP PERISCOPE! 


First, you install the hardware. 







The hardware’s a special memory board 
that fits in a PC expansion slot. Its 16K of 
write-protected memory contains 
Periscope’s resident symbolic debugger. No 
runaway program, however berserk it may 
be, can touch this memory! 


Then you UP PERISCOPE. 


Use Periscope’s push-button break- 
out switch to interrupt a running 
program ... even when the system’s 
hung! Periscope supports Assembly, 
BASIC, C and Pascal. In addition to the 
usual debugging capabilities, some of 
Periscope’s features are: 


Stop yoursystemin | =<) 
its tracks atanytime.  §) ‘+ 


Use symbol names instead 
of addresses. 


Run a program on one monitor and 
debug on another. 


Monitor your program’s execution 
with Periscope’s comprehensive 
breakpoints. 


Debug memory-resident programs. 


Put your time to better use. 


The Periscope system is $295. It carries a 30-day money-back 
guarantee and includes the memory board, remote break-out 
switch, debugger software, 100-page manual, and quick- 
reference card. The memory board is warranted for one year. A 
demonstration disk is $5.00. 


System requirements for Periscope are an IBM PC, XT or 
Compaq, PC-DOS, 64K RAM, 1 disk drive and an 80-column 
monitor. For MasterCard and Visa orders only, call 800/421- 
§300 (ext. R96) 24 hours a day. For additional information, call 
404/256-3860 from 9 AM to 5 PM Eastern Time. 


Get your programs up and running; 


uP PERIS E! 


Data Base Decisions / 14 Bonnie Lane /Atlanta, GA | 30328 


Circle no. 20 on reader service card. 


21 


not, GETNUM returns the value of the 
immediately preceding byte. 

In this particular application all 
numbers (port numbers and byte val- 
ues) lie between 0 and 255. You may 
substantially simplify GETNUM by 
taking advantage of this knowledge. 
Thus, it is implicitly assumed that the 
byte counter will have a value of one or 
two. If not, GETNUM returns the val- 


_ Pedress 


Contents 


a8 





ue of the number mod 256. 


Returning a Value to muLISP 

The value of a machine language func- 
tion is returned via the HL register, but 
the HL register does not contain the 
value itself. Rather it contains a pointer 
to the appropriate data structure. In the 
case of the input function, this structure 
will be the address of a bona fide mu- 


Bit vector 
Byte counter 


Vector | 
Sign — 
Number 


Ni 


| | Figure 4 


Memory contents are shown as words (16 bits) with the order of the most 
and least significant bytes reversed, except in the case of the byte counter 
and the bit vector, which are shown as bytes. The bit vector precedes (has 
a lower address than) the byte counter. Location 2900H is a special atom: 
NIL. The sign of a nonnegative number always points to NIL. 


GETNUM 
ca 
a,(c) 





a 


(COUNT), 1 


Z 


(COUNT),2 


NUMBER: NUMBER 
_ SIGN: NIL 
VECTOR: _ COUNT 
_ VALUE: | 0 

_ COUNT: | 1 


hl,NUMBER 
- (VALUE),a 


;point to number to be returned 
;bit vector — 

set flags (i.e., is VALUE = O) 
;byte counter if VALUE = O 


;byte counter if VALUE > O 


| Figure 5 





LISP number; that is, the input function 
must return a pointer to a sequence of 
three cells (number, sign, and vector), 
the last of which contains the address of 
the binary representation of the desired 
value. Achieving this turned out to be a 
nontrivial task, and it is worth exploring 
briefly two false paths I followed for the 
insight they provide into the workings 
of the interpreter. 

My first attempt was to build up the 
appropriate data structure as part of 
the code of the I/O functions them- 
selves. IN had the form shown in Figure 
5 (below). This attempt ran afoul of ad- 
dress typing. The certain region of ad- 
dress space allocated for names and 
numbers does not include the location 
of the machine language functions. At- 
tempting to refer to a number outside 
this atom space had interesting but not 
highly desirable consequences. 

The second possibility that I consid- 
ered was to use one of the parameters 
to return a value. A valid muLISP 
number is passed as the port address. 
Once its value has been used, it is no 
longer required. Why not simply 
amend its vector value to reflect the 
value of the input port and return the 
same pointer? Why not indeed? 

This suggestion is precluded by the 
constraint on muLISP machine lan- 
guage functions to be call by value 
functions, which means that the func- 
tion arguments are evaluated before 
they are passed to the function. What is 
passed is a pointer to the value of that 
argument, a muLISP number that may 
be shared by many other objects in the 
LISP environment. Changing the value 
of this number changes all these values 
simultaneously. Again the results are 
interesting but not always desirable. 

The final and ultimately successful 
tack was to discover how muL ISP han- 
dled the same problem. Some tedious 
disassembly revealed the existence and 
location of a subroutine that converts 
the number in register A into a valid 
muLISP number. So IN simply jumps 
to this subroutine with the value it ob- 
tains from the port. In the listing this 
subroutine is labeled RETURN_A. 

This method of returning a value to 
muLISP is simple. However, it has the 
disadvantage of requiring prior knowl- 
edge of the absolute location of the 
subroutine RETURN, which may dif- 
fer from version to version of the inter- 
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preter. The next section provides some 
hints on finding the location of 
RETURN _A. 

A final point: Every machine lan- 
guage function must return a value; 
that is, the HL register pair must point 
to a bona fide muL ISP data object (e.g., 
NIL). The function OUT simply returns 
the value of the byte it has output. 


Finding RETURN_A 

The location of the subroutine 
RETURN_A can be found by disas- 
sembling the function MEMORY, the 
location of which can be found with the 
following muLISP command: 


(GETD MEMORY) 


Remember that the returned address 
will be in decimal unless you change 
the radix. In my system the code for 
MEMORY is as follows (with the radix 


changed to 16): 


12D5 CALL 0650 
JP NC,07BE 
LD A,(HL) 
PUSH AF 
EX DE,HL 
CALL 0672 
ar NGI2E> 
LD (DE),A 
POP Ar 
RD OFC6 


This last address, OFC6, is the location 
of the subroutine RETURN. 


Conclusion 

Adding some simple I/O functions to 
muLISP turned out to be more com- 
plex than I first envisaged. In the pro- 
cess I learned some interesting details 
about the internal structure of the in- 
terpreter. I pass on the results of my 


investigations in the hope that they 
may be of use to others who want to 
add other machine language functions 
to muLISP. The listing gives the re- 
quirements for the primitive I/O func- 
tions IN and OUT. 

My efforts may also be of value to 
other programmers. The section that 
deals with obtaining a suitable block of 
memory for the machine language 
functions applies quite generally to 
CP/M programs. Although the re- 
maining sections are more specific to 
muLISP, the general concepts ad- 
dressed are worthy of attention by a 
wider audience. Any LISP implemen- 
tation is likely to follow a similar struc- 
ture, while any high-level language is 
likely to provide similar problems. 

DD] 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 192. 





muLisp Listing (Text begins on page 18) 


‘Modifications to auLISP to provide primitive 1/@ functions 
‘The function and operation of this code is fully explained in the accompanying text 


. 180 
0600" aseg 
0065 GOBDaS equ J (CP/M entry point 
0134 START equ 9134H sentry point to muL ISP 
OFS RETURN_A equ OFC4H imuL TSP subroutine 
2886 ENDLISP equ 2B86H rend of original code 
A388 BDOS equ GA3G0OH ;depends on memory size 
org 166H 
0166 C3 2886 ip INIT +MULISP jump table 
0163 «C3 A283 if IN 
0106 C3 Azec ip QUT 
6109 C3 0189 USERS: jp USERS 
6100 8=6 C3 e1ee USER4: jp USER4 
org ENDLISP 
2880 INIT: 
2886 =. 21 «A208 ld hl, BDOS - 1@8H ;patch GoBDOS with lower address 
2883 22 9806 ld (GoBDO5+1) ,hl 1see Figure 3 
2884 EB Gx de, hl sand relocate functions 
2887 = 21 2892 ld hl, CODE sie, sove machine language functions 
288A 61 6027 ld bc, LENGTH ;up to memory page immediately 
288) ED 86 ldir sbelow BDOS 
ZB8F =—s-s« C3: 134 ip START :of auL ISP 
2892 CODE equ $ 


(Continued on next page) 
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mu Lisp Listing (Listing Continued, text begins on page 18) 


AZ6@ = =§=6C3_ A309 


A203 CD A219 
A286 = AF 

AZ@7 ~=—s«ED 78 
AzO9—sC3. FCA 


AZOE =o 
A260 = CD A219 
A21@ 0 aF 
AZT) EB 


AZi2 = CD A219 
AZiS- ED 79 


A217 —s El 
A218 = 9 
A219 
ALLY 8 
RAZA ES 
AZIB 23 
a | ee a 
AZ1D 
AZLE © 23 
AZiF 
AZ2@ oF 
wa Caer 2 
Raa. 2453 
AZZ9:: «C8 


AZz4 —s ZB 
ipoint to LSB 
Wiad 76 
A226 CY 

ireturn LSB 


6827 


24 


phase 


iP 


IN: call 
ld 


ip 
OUT: push 


call 


Id 
BX 
call 
out 
pop 
rat 


GETNUM: 


BROS - 18@H 


BDOS 


GETNUM 
C,a 

a, (c) 
RETURN A 


de 
GETNUN 
Cea 
de,hl 
GETNUM 
(Clea 
hl 


+ returns a @uLISP number mod 254 
) on entry, hl points ta nusber 


inc 
inc 
inc 
inc 


ld 
int 
ld 
ld 


ld 
dec 
ret 


.dephase 


LENGTH equ 


end 


hl 
hl 
hl 
fi] 


a, (hl) 
hi 

h, (hl) 
la 


a, (hl) 


d 


3 
a 


hl 


a, (hl) 


$ - CODE 


;this is the code of the gsachine language 
sfunctions asseabled to reside at BDOS - i66H 


‘jump for BDOS calis 
‘get port number 


sinput value at port 
: return to @uLISP 


;save output value for return value 
;get port number (pointed to by hl) 


9get value to output 
soutput value to port 
ireturn value {from stack) 


‘Skip over first two (16 bit) fields 
95€28 Figure 4 


ihl now points to pointer to the bit vector 
sload pointer in hl 


tht now points to the byte count 
iload byte counter into a 


return @ if byte count = ! 
‘otherwise 


End Listing 
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B. G. MICRO 
Big Computer Mfg. Makes $900,000 Goof!! 


~COMPUTER/DISK DRIVE 
SWITCHING POWER SUPPLY 


ORIGINALLY DESIGNED TO RUN A Z-80 
BASED SINGLE BOARD COMPUTER 
WITH TWO 5-1/4 IN. DISK DRIVES AND 
CRT MONITOR. 



















ADD $1.50 PER UNIT FOR UPS 








SPECS: + 5VDC 5 AMPS MAX 
#1 + 12 VDC 2.8 AMPS MAX 
#2 + 12 VDC 2.0 AMPS MAX 
-12 VDC .5 AMPS MAX 





INPUT: 115 or 230 VAC 60Hz 





SMALL SIZE: 6-1/8 x 7-3/8 In. 
HIGH EFFICIENCY SWITCHER MFG. 
BY CAL. DC IN USA! 


The poor Purchasing Agent bought about 10 times as many of these DC 
switchers as his company would ever use! We were told that even in 
10,000 piece lots they paid over $72 each for these multi-output 
switchers. When this large computer manufacturer discontinued their 
Z-80 Computer, guess what the Big Boss found in the back warehouse; 
several truckloads of unused $72.00 power supplies. Fortunately we 
heard about the deal and made the surplus buy of the decade. Even 
though we bought a huge quantity, please order early to avoid 
disappointment. Please do not confuse these high quality American 
made power supplies with the cheap import units sold by others. 










TERMS: Orders over $50 add 85¢ insurance. No COD. Tex. Res. Add 6% Sales Tax. Subject to prior sale. Foreign orders: US funds only. We cannot ship 
to Mexico. Foreign countries other than Canada add $6 per board shipping. 
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he optimization of programs for 
7 minimum execution time is a 

passion for some programmers 
and a necessity for others. I sometimes 
argue that the three phases of a good 
programmer’s development are: first, 
optimize for minimum number of in- 
structions; second, optimize for mini- 
mum execution time; and last, opti- 
mize for readability. Once 
programmers reach the last phase, 
they can begin to use computer aids to 
optimize for execution time and pro- 
gram size. The package described here 
is one of those aids. 

Many quickly written programs find 
their way into production products; 
when they do, they often need to be re- 
written. Sometimes small, nagging 
bugs are removed, sometimes features 
are added, but most often the program 
that worked well on a little data takes 
far too much time when given a full 
measure of data. Unguided attempts to 


tation package to determine where the 
program spent most of its time. 

The ideas behind such a package are 
not new, and the techniques for imple- 
menting the package on large systems 
are well known. I simply applied these 
ideas and techniques to a CP/M system 
and developed a Program Monitoring 
Package (PMP) for CP/M. 


Overview 

The principal technique for monitoring 
programs is to examine the program 
counter (the address of the fetch of the 
next instruction) while the program is 
running. When machines had front 
panels, a rather crude analysis consist- 
ed of watching the lights: the lights 
that glowed the brightest represented 
the address in memory from which 
most of the instructions were fetched. 
This technique, however, could locate 
only extremely time-consuming sec- 
tions of code. 





“Unguided attempts to optimize programs for speed 
often result in pointless modifications. | needed to 
develop an instrumentation package to determine 

where the program spent most of its time.” 


re et ee A ee 


optimize programs for speed often re- 
sult in pointless modifications that only 
reduce readability of the program. 

I recently examined a program of 
mine (a spelling checker) with an eye 
to optimizing its speed. I examined the 
code in places where I thought the pro- 
gram could be “tightened up” but felt 
that changes in those areas would pro- 
duce buggy code with no obvious bene- 
fit. I needed to develop an instrumen- 





Alan Bomberger, Poor Person Soft- 
ware, 3721 Starr King Circle, Palo 
Alto, CA 94306. 


A more precise technique is to re- 
cord the value of the program counter 
at random instants while the program 
is running. To record every value of the 
program counter is usually impracti- 
cal, so the program is divided into 
small sections based on the address. A 
counter is incremented each time the 
program counter is seen within a sec- 
tion. Coarse samples might divide the 
program into 1024-byte sections, while 
fine samples might use sections as 
small as 32 bytes. Finer sampling im- 
plies more counters. Two thousand 
counters are needed to sample a 64K 
program with 32-byte sections. 
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With enough samples it is possible to 
identify small sequences of time-con- 
suming instructions. I once analyzed a 
heavily used program for hours to lo- 
cate the code that was slowing it down. 
Coarse sampling isolated a subroutine 
that was consuming much more than 
its fair share of computer cycles. De- 
tailed sampling within the subroutine 
finally isolated a divide instruction as 
the culprit. A rewrite of the subroutine 
without the divide instruction resulted 
in a 10% increase in program speed. In 
another case, coarse sampling isolated 
a sort subroutine with a very poor algo- 
rithm. A rewrite of the sort made the 
program run 10 times faster. 

Sampling may reveal that no isolated 
areas of the program are particularly 
inefficient. In these cases an examina- 
tion of the algorithms involved is neces- 
sary to determine if there are more effi- 
cient ways of solving the problem. 

Later in the article I will discuss the 
pitfalls of sampling (random and oth- 
erwise) the program counter. It 1s, 
however, a good technique for isolating 
the immediate areas in a program that 
must be examined in detail. Other 
techniques also analyze the behavior of 
a running program. One popular tech- 
nique is to use a special compiler that 
inserts subroutine calls to a recording 
feature at significant places in the pro- 
gram. The inserted subroutine records 
the events for later analysis. The anal- 
ysis shows DO LOOP counts, SUB- 
ROUTINE counts, and even counts on 
each branch of an IF statement. 

The major advantage of this tech- 
nique is that it enables a complete flow 
analysis, with exact identification (in 
terms of the source language) of time- 
consuming code. The major disadvan- 
tage is that the technique depends on 
the availability of a special compiler 
for the language being used. By con- 
trast, the interrupt-driven sampling 
technique is applicable to any program 
in any language. Its major disadvan- 
tage is that it usually provides no 
knowledge of the program structure, 
requiring the programmer to correlate 
the program counter values with par- 
ticular sections of code. 


Interrupts 

Just how does this technique sample 
the program counter? Most comput- 
ers, large and small, have a feature 
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that allows some sort of timer to inter- 
rupt the program. As its name implies, 
an interrupt is an unpredictable 
change in the status quo. In other 
words, some program segment in the 
computer memory is executed out of 
sequence and without the knowledge 
or cooperation of the main program. 
Timer-based interrupts are the basis 
for program monitoring. The interrupt 
executes a program segment that exam- 
ines the program counter of the inter- 
rupted instruction and increments a 
counter based on the section of the pro- 
gram executing at the time of the inter- 


rupt. The segment then restores the sta- 
tus of the machine to its exact state at 
the time of the interrupt and returns 
control to the program. The only effect 
on the program is that it runs a little 
slower. 


Taking Control from BDOS 

Because the instructions that the com- 
puter executes when an interrupt oc- 
curs are neither part of the application 
program nor CP/M, the programmer 
must find some technique to reserve a 
portion of the computer’s memory for 
this purpose. Some systems have mem- 
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HIGH QUALITY PRODUCTIVITY TOOLS 
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{SET:LIKE} add-on to {SET:DIFS}. $40.00 


{SET:GXREF}™ Cross Reference Utility 


$79.00 
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ory available at addresses beyond ei- 
ther the program or CP/M. Such sys- 
tems, however, are becoming rare, and 
the programmer is likely to need a 
method that uses a portion of the mem- 
ory normally used for programs. Such 
a method has been part of the CP/M 
lore for many years. 

The instruction at location 5 of a 
CP/M system is a jump to the CP/M 
BDOS. Location 6 is the address of the 
lowest memory used by the BDOS; ap- 
plication programs can use any memory 
up to this point. When an application is 
not in control, the CCP (console com- 
mand processor) is loaded immediately 
below the BDOS. To reserve a portion of 
memory for the interrupt program, the 
programmer must change the address at 
location 6. Once this is done, applica- 
tions will not use the memory reserved 
for the interrupt program and the CCP 
remains in memory. 

It is easy to see that the instruction 
at location 5 must now jump to the 
lowest address used by the interrupt 
program; this must be a jump to the 
address that was in location 6 before 
the change was made. This “bounce 
pass”’ does not interfere with the oper- 
ation of CP/M. 

Three additional details must be 
worked out. First, a program must load 
the interrupt program into the memory 
reserved for it. An initialization pro- 
gram usually accomplishes this, run- 
ning as a standard application that 
moves a block of code from low memo- 
ry to just below the CCP. This code 
must be assembled assuming a location 
below the CCP and not in low memory; 
assembly language constructs ex- 
plained in Listing Two (page 32) ac- 
complish this. 

Second, an application program 
should be able to retrieve the samples 
of the program counter for analysis. 
The interrupt code adds two new 
BDOS function calls for his purpose. 
Because all BDOS calls now pass 
through the interrupt code on their 
way to the CP/M BDOS, it is possible 
to intercept certain calls and process 
them in the interrupt code itself. Each 
BDOS request is examined to see if it is 
one of the new functions. If not, the 
request passes on to the real BDOS. If 
it is a new function, the processing 
takes place in the interrupt code. 

In this package one BDOS function 
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zeros the counters and starts the pro- 
gram monitor. Another function re- 
turns a pointer to the counters and an 
indication of the address range of each 
counter. When the interrupt code in- 
terprets these BDOS functions, return 
is directly to the calling program with- 
out jumping to the real BDOS. 

The third action is to modify the in- 
terrupt vector in low memory so that 
the PMP is entered each time a timer 
interrupt occurs. I will explain this ac- 
tion in detail further on. 


Taking Control from BIOS 

Several changes in the behavior of the 
BIOS are necessary. The WARM 
BOOT function must not overlay loca- 
tion 6 with the real BDOS address; it 
need not read in the CCP (which is pro- 
tected from the applications by the val- 
ue in location 6) or the BDOS. To inter- 
cept the BIOS WARM BOOT call, the 
programmer must change the address 
in the BIOS jump table. 

Location 0 is a JMP to a vector of 
JMP instructions. The first of these is a 
jump to WARM BOOT. (Other jumps 
in this table jump to various I/O rou- 
tines of the BIOS.) A jump to location 
Q therefore causes a jump to the 
WARM BOOT routine. To intercept 
the WARM BOOT function, we need 
only change the first address in the 
BIOS jump table to point to our code. 

To simulate the WARM BOOT, we 
use a BDOS function RESET DISK: the 
stack pointer is reset and location 6 is 
reset to the correct value (which points 
to our code). The reset of location 6 is 
necessary because some processors 
that use a similar technique of modify- 
ing location 6 do not reset it when 
done. DDT is an example. 

Two other modifications to the BIOS 
jump table are necessary. Many sys- 
tems do not expect interrupts to be en- 
abled during CP/M operation. Inter- 
rupts do not bother CP/M, but they 
may bother the BIOS disk I/O func- 
tions: an interrupt during the transfer 
of data to and from the disk can cause 
a loss of data. To avoid this, many 
BIOS systems disable interrupts before 
performing the disk I/O. Not all of 
these systems, however, enable inter- 
rupts when they are done. Some sys- 
tems do not bother with interrupts at 
all, under the assumption that they are 
never enabled. 


For the program monitor to function 
without disturbing the operation of 
CP/M, it is necessary to assure that the 
system disables interrupts before en- 
tering the BIOS disk read and write 
routines and enables interrupts when 
the disk I/O is complete. We accom- 
plish this by intercepting the jumps to 
the disk read and disk write functions 
of the BIOS. By modifying the jump 
table so that calls to the BIOS disk 
functions come first to the interrupt 
code, we can instruct the system to dis- 
able interrupts, call the real BIOS 
function, and then enable interrupts. 

It is worth noting here that this tech- 
nique uses additional stack space. 
What used to be a simple call to the 
BIOS becomes two calls: first the inter- 
rupt code is called and then the inter- 
rupt code calls the BIOS. This requires 
two extra stack locations. If an appli- 
cation does not have enough stack 
space, it may not run correctly. Elimi- 
nating the use of extra stack space is 
possible, but it introduces additional 
complications. 


Borrowing Interrupts 

The program monitor uses a timer in- 
terrupt to sample the program counter. 
Some CP/M systems already use a tim- 
er interrupt for some other purpose. 
For example, my system uses timers to 
simulate console interrupts. Others use 
timers to update clock values and the 
like. The program monitor works in 
these environments because it is aware 
that it may have to share the timer in- 
terrupt among several programs. 

If a system uses timer interrupts, 
one of the fixed interrupt locations in 
low memory (0 — 38) is set up with the 
address of the timer interrupt routine. 
The occurrence of a timer interrupt 
calls this fixed location. The content of 
the fixed location usually is a jump to 
the program that handles the timer in- 
terrupt. When the interrupt program is 
complete, it enables interrupts and re- 
turns to the running program. 

The program monitor uses the inter- 
cept technique to borrow the timer in- 
terrupt. The programmer changes the 
fixed location contents to a jump to the 
program monitor, which executes the 
code to record the program counter. 
When the program monitor finishes, it 
jumps to the old interrupt program in- 
stead of returning to the running pro- 
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gram. The old interrupt program now 
runs as if it had been jumped to direct- 
ly, returning to the running program 
when it is finished. 

Again note that this interception 
may require additional stack space. I 
have coded the program monitor very 
carefully to use as little stack space as 
possible. Registers are saved outside of 
the stack and calls are minimized. 

Before the program monitor can be- 
gin, it must determine whether the 
timer interrupt is in use or not. If not, 
the program must initialize the hard- 
ware that causes the interrupt and en- 
able interrupts. If the timer is in use, 
the program only modifies the inter- 
rupt location to borrow the interrupt. 

A test is necessary to determine 
whether the timer is running or not. 
This test borrows the timer interrupt 
and sets a flag if the timer goes off. If 
after a short wait the flag is on, the 
timer was previously running. Differ- 
ent techniques initialize the program 
monitor depending on whether the 
timer was running or not. All of these 
techniques are documented in Listing 
Three (page 44). 


Sampling Theory without 
Mathematics 

As the word implies, sampling is an in- 
complete recording of information. It is 
subject to a certain class of errors that 
relate to the relative frequency of the 
samples and the information that is sam- 
pled. Imagine a large program loop that 
takes 10 msec to complete. Sampling the 
program counter every 10 msec identi- 
fies only one portion of the loop. The 
complete identification of a loop re- 
quires knowing the bounds of the loop as 
well as its location. (The bounds of most 
loops can be identified from the program 
listing. However, determining if some 
portions of the loop take longer than oth- 
ers requires samples throughout the 
range of the loop.) If the same program 
loop were to take only 2 msec, samples 
every 10 msec might not identify it at all. 
‘Increasing the sample rate to every | 
msec would identify either loop 
correctly. 

Most programs are a series of loops 
within loops and represent periodic 
processes. As seen above; periodic 
sampling of periodic processes Can pro- 
vide misleading information. A suff- 
ciently high sampling rate will ensure 
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that information is not lost but may re- 
quire recording an excessive amount of 
information. Sampling at random in- 
tervals takes advantage of the benefits 
of a high sampling rate while limiting 
the amount of information recorded. 

When sampling a 10 msec loop at | 
msec intervals, little information is lost 
if some of the samples are discarded. 
The sample rate of 1 msec ensures that 
loops as short as 2 msec are correctly 
identified, and discarding samples at 
random ensures that no information is 
lost over the long run. 

Sampling at a fixed interval of 1 
msec and discarding random samples 


is equivalent to sampling at random in- . 


tervals that are a multiple of 1 msec. 
The minimum interval of the random- 
izing function determines the accuracy 
of the data based on periodic sampling. 
Random sampling or randomly dis- 
carding periodic samples does not in- 
crease the accuracy of the information 
but decreases the volume of data that 
must be recorded. 

Random discarding of periodic sam- 
ples is a method of simulating random 
sampling that can be implemented in 
software. This simulation is often nec- 
essary because many small computers 
have timers with intervals fixed by wir- 
ing changes—these timers cannot be 
set at random intervals by software. 
The software simulation of random 
sampling is not without significant cost. 
It involves fielding a timer interrupt at 
the highest periodic rate and using a 
counter set at a random value to deter- 
mine which samples are recorded. The 
software to save and restore status at 
the interrupt and to calculate the ran- 
dom value for the counter may involve 
as many as 100 instructions. A Z80 
with a 4 MHz clock executes between 
200 and 300 instructions per msec, so 
the effect of the sampling overhead un- 
der these conditions is a 30—50% de- 
crease in speed. 

Absolutely accurate data is unneces- 
sary as long as the possible errors in 
the data are understood. With this un- 
derstanding and with a desire to mini- 
mize the overhead involved in sam- 
pling, the PMP as implemented on my 
hardware uses periodic sampling with 
an interval of 3.3 msec (which is, con- 
veniently, the shortest interval avail- 
able with my NorthStar Horizon com- 
puter). This works out to about 300 


‘‘This is a beautifully 
documented, incredibly 
comprehensive set of 
C Function Libraries.” 
— Dr.;Dobb’s Journal 
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samples per sec for a Z80 with a 4 
MHz clock or about | sample every 
1000 — 2000 instructions. 

Because loops of less than 1000 in- 
structions are common in programs cod- 
ed in assembly language, the accuracy of 
sampling at this rate is not sufficient to 
rely totally on the output of the PMP 
when determining which areas of code 
to examine. The fact that samples repre- 
sent a range of addresses rather than a 
specific instruction mitigates this prob- 
lem. In a program divided into 64-byte 
ranges (1024 counters for a full 64K 
memory ), 10 counters would represent a 
300-instruction loop. The only way to es- 
tablish the exact location of code ineffi- 
ciencies, given this information, is to ex- 
amine the code. The output of the PMP, 
however, is helpful in isolating areas that 
need detailed examination. 


Analyzing Results 

The first decision we must make when 
using the PMP is the size of the pro- 
gram section represented by each 
counter. Because this currently is deter- 
mined at assembly time, we may need 
several versions of the PMP for the com- 
plete study of a program. The PMP al- 
lows a minimum program section size 
of 32 bytes, which requires 2048 
counters occupying 4K of memory. If 


the program is small (thus requiring the 
32-byte section size), there will be ade- 
quate memory for the counters. 

The second decision is the selection 
of the sample rate. Most programs 
chosen for analysis with the purpose of 
increasing their efficiency will be long- 
running ones. The selection of the sam- 
ple rate must achieve a balance be- 
tween identifying small loops and 
keeping the counters from overflowing. 
In my case, the NorthStar hardware 
limits the sample rate choices. 

Once we have configured the hard- 
ware and software for the PMP, the 
analysis of a program consists of four 
steps: The PMP must be loaded into the 
CP/M system, the program monitor 
started, the program run, and the mon- 
itor stopped and results printed. The 
system I use prints a matrix of counter 
values for each program section. 

We then examine the program list- 
ing and identify each section of the 
program with a higher-than-average 
counter value. Be sure to note when 
only one portion of a loop has a high 
counter value. This usually indicates 
that the loop interval is close to the 
sampling interval, and we must be 
careful in drawing conclusions about 
the changes that must be made in that 
part of the program. It might help to 


add a long string of NOPs to such loops 
and rerun the program with the moni- 
tor. Adding the NOPs (or statements 
like A = A;) will change the length of 
the loop and increase the accuracy of 
the sample information. 


Conclusions 

I used the PMP to analyze the Poor 
Person’s Spelling Checker after I had 
converted it (originally written for 
Z80) to 8080 and had made several en- 
hancements (increasing the degree of 
compaction in the lexicon and adding 
hash chains to the word lists). See List- 
ing One (below). I had expected the 
expansion and hashing routines to be a 
significant factor in the performance. 
What I discovered was that some slop- 
py code in a routine to follow chain 
links was responsible for most of the 
performance problem. I spotted other 
minor efficiency problems and re- 
worked the code. The routine to follow 
chain links is still a major consumer of 
CPU resources, leaving me to conclude 
that further improvements will come 
only with redesign. 
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Se ee 
Program Monitor Package (text begins on page 26) 


Listing One 


An example of the PMP in use. 


The Poor Person's Spelling Checker was monitored using 32-byte program 

sections while it was checking the spelling of this article. The sections of memory 
that were not used have been edited out of the listing to save space. The samples 
at high addresses are from the BDOS and BIOS. 


A>pmp on 

A>monitor —-b 

A>b:spell pmp.ddi pmp.mis 
Poor Person’s Speller (c) 
0715 
bsspell 


Begin spelling check pass 


Enter lexicon file name (.LEX 


™ 
BM 


30 


1981,1983 Alan Bomberger 


Gistinct words in text 
Enter lexicon file name ¢(,LEX 


assumed) or <RETURN> 


assumed) or <RETURN> 
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READABILILITY 
UNGUIDED 
POINTLESS 
INSTRUMENTATION 


CP 
M 


MONITORING 


PMP 


OVERVIEW 


LIGHTS 


INSTANTS 


K 


SUBROUTINE 


NON 


PREDICTABLE 


QUO 
BDOS 


BECOMMING 


CCP 
BIOS 
JMP 
0 
DDT 


MILLISECONDS 
MILLISECOND 
RANDOMI ZING 
SOF TWARE 
INTERURRUPTS 
SLOWDOWN 


THUS 


INDENT IFYING 


NOP 


A>monitor —-e 


©) 
200 
400 
600 
800 
ANNO 
COO 
E00 
1000 
1200 
1400 
1600 
1800 
1A00 
1C00O 
1E00 


Oo 20 40 
3 
1iDé 18B 36 
SF 324 224 


1 


60 80 AO CO EO 100 120 140 160 180 1A0 1CO 1E0 
14 D 2 6 

57 25A 2D5 AD 1A ms 45 C2 

AO 391 22C 35C 2AB F2 4 & 2 3S CoO $i1E 9 


1 


(Continued on next page) 
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Program Monitor Package (Listing Continued, text begins on page 26) 
Listing One 


QO 29 40 60 80 AO CO EO 100 120 140 160 180 1A0 1CO 1EO 
C000 
C200 
C400 
C4600 
C800 
CA90O0 
CCO00O 
CEOO a 20 & 
DOOO 3 0 
D200 6D 
D400 4 1 
D600 6 
DS00 1 2 rs) 
DADO 8 F 3 2 
DCOO 3 is 3 2 
DEOO 42D1547 2 
Oo 20 40 60 80 AO CO EO 100 120 140 160 180 1A0 1C0 1E0 
E0OO 3 B ye A 
E200 
E400 
E600 838 £73 
ES00 
EAQO 
ECOO 
EEQO 
FOOO 
F200 
F400 
F600 
F800 
FAOO 
FCOO 
FEQO 


3 
A 1 9 B 8 D 16 ~ eo: £4 yarns 8 
7 C Dose et 1 1 fe 


Ory De 


Q 20 40 60 80 AQ CO EO 100 120 140 160 180 1A0 1CO 1EO 


A> 
End Listing One 


Listing Two 


Assembly Listing of the Program Monitor 


Copyright © 1984 by Poor Person Software. All rights reserved. 
Permission is granted for personal, non-commercial use Only. 


aseg 3; absolute assembly 
false equ Q 
true equ not false 


the following four equates must be changed for 
the particular hardware configuration of your system 


we :2e 


ccp equ Oc 700h 3 ccp base 

intvct equ 4 s the S100 interrupt number of the clock 
enable equ true : enable interrupts when done 

ete equ 11 s; number of bits in counter address 
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a 

bdos 
boot 
space 
pmpbas 
setdma 
rstdsk 
pstring 
#cb 
intloc 


a 
3 


10:3 


we 


ae ‘a8 


ae ws «ws 


11 bits means every 32 bytes 
10 bits means every 64 bytes 
9 bits means every 128 bytes 
8 bits means every 256 bytes 


equ 2 : jump for bdos 

equ .@) s warm boot place 

equ 2 shl (nbits) + O200h 

equ ccp-space ; base of pmp when active 

equ 26 : bdos equate for setdma 

equ 13 3; bdos equate for reset disk system 
equ 9 s; bdos equate for print string 

equ OSch $ fcb base (for input options) 

equ intvctss : location of jmp for interrupt 

org 0100h 

lda #cb+2 .. +. orn. teart: of: "ott".-or "ont? 
cpi 7 N’ ; on 

jz onpmp 

cpi =e" ; off 

jz offpmp 

ret : forget it 

see if already on 

lxi h.eintrcpt s my bdos jump address 

lda bdos+i ; compare with bdos jump that is active 
cmp 1 

ynz onit : it is not mine so we can take over 
Ilda bdost+2 

cmp h 

rz : it is already on 


move the code into high memory 


Ixi h.pmpbas : destination of code 
lxi d,pmp : assembled code 
1xi b, O200h : move this many 
ldax d s get byte 

mov M,a 3; put byte 

imx h 

imx d 

dcx b 

mov a,b 

ora a 

jnz 190 

MOV aec 

ora a 

jnz 10 : move all bytes 


now modify the existing addresses in 1 and 6 


di s we must not be interrupted 

lhlid bdos+l 3; current bdos jump 

shld jmpbd+1 : save bdos jump so can restore 

1x1 h,intrcpt 3 get new jump to bdos 

shid bdos+l s replace bdos jump so can intercept them 


copy the disk error addresses 


mvi b.8 3 this many bytes 
lhld jmpbd+1 
xchg s old bdos address to de 


(Continued on next page) 
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P rogram Monitor Package (Listing Continued, text begins on page 26) 
Listing Two 


lhid bdosti 3; mew bdos address 

mvi e,? 

mvi 1? s Offset of address list 
cli: 

ldax d 

MOV M,a 

inx h 

inmx d 

dcr b 

jnz cli ; copy all 8 bytes 
5 
H intercept disk read/write routines to our place 
; sO we can disable the clock in case the BIGS doesn’t 
3 mask interrupts when it needs to 
3 

lhid 1 s bios vector base 

lxi b, 37 s Offset for read 

dad b s to 2 byte address of read 

mov e,m 

inmx h 

MOV dm : get both bytes 

xcha 

shlid biocred s to our call 

xchg 

1lxi d,disred 

MOV md 

dcx h 

MOV n,e s; put in our address 
= 

lhid 1 2 vector base 

lxi b, 40 

dad b 3; to 2 byte address for write 

MOV e,m 

inx h 

mov d.m s to de 

xchg 

shid biowrt s; to our call 

xchg 

lxi d.diswrt 

mov m.d 

dcx h 

Mov n,e $s put ours into vector 
3 now do the same for warm boot 
5 

Ihld i 3 address of warm boot jump 

inx h 3 low byte 

mov 2m 

imx h 

mov d.m s get it 

xchg 

shld Cldjpo ; Save it 

xchg 

1xi d, jmpo 3 Our address 

mov m,d 

dcx h 

MOV m,e 
3 

if enable 

ei 

endif (Continued on page 36) 
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P rogram Monitor P ackage (Listing Continued, text begins on page 26) 
Listing Two 


offpmp: 


we we wes 


motacts 


pcounts: 


36 


ret 


see 


li 
lda 
cmp 
rnz 
lda 
cmp 
rnz2 


di 
lda 
ora 
jz 
lhld 
shid 


lhid 
shid 


must 


lhld 
xchg 
lIhld 
inx 
Mov 
inx 
Mov 


lhid 


xchgG 
lhlid 
lxi 
dad 
Mov 
inx 
mov 


lhld 
xchg 
lhld 
Li 
dad 
Mov 
inmx 
MOV 


lda 
ora 
jz 
lda 
ora 
jnz 
call 


if pmp is active 


hH,intrcpt 
bdos+1i 
1 


bdos+2 
h 


active 
a 
notact 
oldtijp+i 
intloc+i 


jmpbd+1 
bdos+1 


waa 


restore bios vectors 


oldjpo 


active 
aa 
pcount 
clockon 
a 
pcount 
disclk 


es 


“aa 


an 


‘ae 


“a we we ws we 





my bdos intercept 
see if we are on 
no return quickly 


it ain’t us 


is it now active 


no leave interupt 
restore old timer 
if intloc was not 


address 


alone 
routine 


a jump it wasnt meaningful 


restore old bdos jump address 


warm boot 
to correct place 
low byte 
high byte 


disk read 


put back 


were we on 


no don’t fool with clock 
see if clock was on to start 


well 


yes (leave clock on) 


disarm clock 


Dr. Dobb’s Journal, November 1984 


TA%5 








if 
ei 


endif 


ret 


an 


ds 
stack: 


L EQU 


mp equ 


ws T ws ws wo ws ss ae as a8 ae 8 


ntrcpt equ 


as ‘ss we jj} 


jmp 
ds 
start equ 
MOV 
ora 
jz 
cpi 
jz 
cpi 
jz 
jmpbd equ 
jmp 
startc equ 


‘ae 268 


“es 


lda 
ora 
1x1 
rnz 
bytes equ 
1x1 
lxi 
12 equ 
xra 
stax 
imx 
dcx 
MOV 
ora 
jynz 
mov 
ora 
jnz 


xra 
sta 
lhlid 
shld 
mvi 
sta 


when it iS run. 
other assemblers 


now must 
or it may not be. 


enable 


64 


$—PMP+PMPBAS 


% 


$—pmp+pmpbas 


start 

14 
$-—pmp+pmpbas 
asc 

a 

jmpo 

2uo2 

startc 

aol 

stopc 
$—-pmp+pmpbas 


@) 
$—pmp+pmpbas 


zero counters 


active 
e 


space-—O0200h 
b.bytes 
d,pecnt 
$—pmp+pmpbas 


rT 


NJ 


eoerooodaap 
n 


~ 
N 


"horrow" the timer interrupt. 
must 


a 
clockon 
intlocti 
oldtjpti 
a, jmp 
intloc 
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from here on all labels must be of the form 


to cause the assembler to generate code that can be moved 
to the location in memory (PMPBAS) where it will reside 
There are other ways to do this with 


moved to high memory 


must trap the reset system call 


see if system reset 


yes simulate warm boot 
how about on 


how about of f 


filled in with "real" bdos address 


is it active 
if doesn’t work set "false" 
yes cant start the started 


get a zero 
put a zero 


check high byte 


check low byte 


It may be on 


determine the state of timer interrupts 


a8 we ‘a6 


Clear flag 

possible timer addr 

save old address (if active must be jmp) 
set up my interrupt 


(Continued on next page) 
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P rogram Monitor Package (Listing Continued, text begins on page 26) 
Listing Two 


lxi h, timjpo : come here on interrupt 
shid intloc+l 


see if clock is on 

this is done to determine if the previous timer interrupt 
routine is active. The presence of a jump instruction at 
location intloc does not mean that the timer is running. Our 
first little timer routine will simply set a flag if it is 


‘me “25 WS 2s We We we ws ‘28 


called 
ei 
lxi d, Of fO00h 
13 equ $—pmp+pmpbas 
nop 
nop 
nop 
dcx d 
Mov a,d 
ora a 
jnz2z 13 3; wait awhile 
5 
3 if clockon = 1 then clock was running 
3 
di 
lxi h,timijpl : bypass set of clockon 
shld intloc+l 3; set up real interrupt routine 
mvi a,l 
sta active 
ei 
3 
lda clockon 
ora a 
jz onclok s must start clock 
xra 3 
lxi hal : set "true" 
ret 
3 
H turn on clock because it was not active before 
gb 
onclok equ $—pmp+pmpbas 
call armclk 3 turn on clock 
5 
xra r= : go go 
1x1 h,i s set “true" 
ret 
8 
stopc equ $—pmp+pmpbas 
lda active ; are we active 
ora a 
1xi h.9O s set "false" 
jz stopna ; no 
di 
lhlid Cldtjp+ti 3; restore old timer routine 
shid intloc+1 3 if intloc was not a jump it wasnt meaningful 
lhid impbd+1 s restore old bdos jump address 
shid bdos+i 
1xi Hh,pccnt s “true” in spades 
lda clockon 
ora a 
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jnz stopna it was on leave it on 


a8 


call disclk s off the clock 
3 
stopna equ $—pmp+pmpbas 
8 
if enable 
ei 
endif 
5 
xra a 
sta active 
ret 
clockon equ $—pmp+pmpbas 
db .@) ; start with clock off 
active equ $—pmpt+pmpbas 
db .) : 1 if PMP active 


3 
3 read sector routine must disable clock interrupts here 
3 
d 


isred equ $-—pmp+pmpbas 

push psw 
call disclk : disarm clock 
pop psw 

biored equ $—pmp+t+i+pmpbas 
call $ ; bios read sector filled in 
push psw 
call armclk : arm clock 
pop psw 
ret 


write sector routine must disable clock interrupts here 


iswrt equ $—pmp+pmpbas 

push psw 
call disclk 3: disarm clock 
FOp psw 

biowrt equ $-—pmpt+i+pmpbas 
call $ s; bios write sector filled in 
push psw 
call armclk 3; arm clock 
pop psw 
ret 


put your arm clock routine here 


rmcik equ $—pmpt+pmpbas 
lda active 
ora 2 
ae 3 not active is nop 
mvi a, O50h 3; reset clock flag 
out r=) 
mvi a, OcOh : arm interrupts 
out & 
ei 
ret 


put. your disarm clock routine here 


Owe 2s 2s 


isclk equ $—pmp+pmpbas 
lda active 
ora a 
rz s not active is nop 
mv i a, 040h 
out 6 
ret 
jmpo equ $-—pmpt+pmpbas 


(Continued on next page) 
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Program Monitor Package (Listing Continued, text begins on page 26) 
Listing Two 


ws 


“ae we we ‘28 es 


retmyt 


oldtji 


oldtip 


rh oe we ws we ws es as os 


imjpoQ 


imjpi 


40 


lxi h,intrcpt 3; must reset this 
shld bdos+i because DDT not restore it when done 


lxi sp,0100h s get default stack 

lxi d, O80h ; set dma 

mvi c,setdma 

call bdos 

mvi c,.rstdsk ; use bios reset disk 

call bdos 

lda 4 § get user number and disk 
mov C,a }. For cep 

jmp ccp+3 5 fake warm boot 


must test to see if we need to arm the clock before 
returning. If there is another routine active allow 
it the priviledge of arming the clock for the next 
interrupt 


@qu ¢-pmp+pmpbas ; come here at end of my timer routine 
push psw 

lda clockon 3: see if some one else active 
ora a 

jnz oldtjil ;s yes no need to on the clock 
call armclk 

pop psw 

ret 

equ $—pmp+pmpbas 

pop psw 

equ $—-pmpt+pmpbas 

jmp ‘@) s filled in 


determine if the clock is on 


this is a timer interrupt routine that is used to determine 
if the clock is being used. It sets a flag if called and 
goes on to the next routine (if present) 


equ $—pmp+pmpbas 

push psw 3s if we get here during initialization 

mvi a,il s the clock is on 

sta clockon 3; Say was on 

POR psw 

jmp Oldtijp s go to the previous user of timer interrupt 


the run-time timer interupt routine 
increment the counter indicated by the PC 


equ $-—pmp+pmpbas 

shld savehl ; need to get PC at interupt time 
pop h ; get into h 

shid pcint ; PC at interrupt 

push h 3; put it back 

push psw s Save state of machine 

mov hb 

MoV 1.c 

shid savebc 


increment the correct counter 


(Continued on page 42) 
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C 
WIZARO C UTILITY LIBRARY 


Fast compiles, fast code and great diagnostics 
make Wizard C unbeatable on MSDOS. Discover 
the powers of Wizard C: 


The C UTILITY LIBRARY is a set of 200+ functions designed 
specifically for the PC software developer. Use of the Library will 
speed up your development efforts and improve the quality of 
your work. 


ALL UNIX SYSTEM Ill LANGUAGE FEATURES. e BEST SCREEN HANDLING AVAILABLE 


UP TO A MEGABYTE OF CODE OR DATA. 


SUPPORT FOR 8087 AND 80186. e WINDOW MANAGEMENT,COLOR GRAPHICS 
FULL LIBRARY SOURCE CODE, OVER 200 FUNCTIONS. ° DOS 2 DIRECTORIES, COMMUNICATIONS 


CROSS-FILE CHECKS OF PARAMETER PASSING. 


USES MSDOS LINK OR PLINK-86. ¢ KEYBOARD, PRINTER, TIME/DATE 
CAN CALL OR BE CALLED BY PASCAL ROUTINES 


decane Ser MAIN: LANGUAGE. e EXECUTE PROGRAMS, BATCH FILES 
240 PAGE MANUAL WITH INDEX. ¢ STRINGS, BIOS, AND MUCH MORE 
NO LICENSE FEE FOR COMPILED PROGRAMS. 
e ALL SOURCE INCLUDED—NO ROYALTIES 


The new standard for C Compilers on MSDOS! Available for Microsoft/Lattice $149, Computer Innovations 
$149, Mark Williams $149, DeSmet $99. Add $3 shipping. N.J. 
residents add 6% sales tax. Visa, MC, checks—10 days to clear. 


Order direct or through your dealer. Dealer/Distributor inquiries 
welcome. 


Only $450 


Wwss ea bine APN Bie, Coe ESSENTIAL SOFTWARE, INC. 
11 Willow Ct., Arlington, MA 02174 (914) 762-6605 


Visa/Mastercard accepted PQ. Box 1003 
Maplewood, N.J. 07040 


Circle no. 77 on reader service card. Circle no. 26 on reader service card. 


Six Times Faster! 


Super Fast Z80 Assembly Language Development Package 
Z80ASM SLRNK 














































e Complete Zilog ® Conditional assembly e Links any combination © COM may start at 
Mnemonic set e Assemble code for of SLR format and other than 100H 

e Full Macro facility execution at another Microsoft format REL e HEX files do not fill 

@ Plain English error address (PHASE & files empty address space. 
messages DEPHASE) e One or two pass e Generate inter-module 

e One or two pass e Generates COM, HEX, operation allows output cross-reference and 
operation or REL files files up to 64K load map 

© Over 6000 lines/minute ® COM files may start at ¢ Generates HEX or COM =e Save symbol table to 

© Supports nested other than 100H files ; disk in REL format for 
INCLUDE files e REL files may be in e User may specify PROG, use in overlay 

e Allows external bytes, Microsoft format or DATA, and COMMON generation 
words, and expressions oer en loading addresses e Declare entry points 
(EXT1 * EXT2) e Separate PROG, DATA from console 


& COMMON address e The FASTEST Micro- 


® Labels significant to 16 


spaces ay soft Compatible Linker 
characters e uy is 

externals SUR Format e Accepts symbol defini- Us or ME ete : available 

Only) tions from. the console 


e Flexible listing facility 
includes TIME and 
DATE in listing (CP/M 
Plus Only) 


@ Integral cross- reference 
e Upper/lower case 


optionally significant e Complete Package Includes: Z80ASM, SLRNK, SLRIB 


- Librarian and Manual for just $199.99. Manual only, $30. 
e Most formats available for Z80 CP/M, CDOS, & TURBODOS 
e Terms: add $3 shipping US, others $7. PA add 6% sales tax 


For more information or to order, call: 


1-800-833-3061 
In PA, (412) 282-0864 


Or write: SLR SYSTEMS 
1622 North Main Street, Butler, Pennsylvania 16001 : rs S ¥2 tems. 


Circle no. 64 on reader service card. 








Program Mon itor Pac kage (Listing Continued, text begins on page 26) 
Listing Two 


hiftc 


we ws Yl we we «we ws ws zs 


shiftl 


2 
savehl 


savebc 
pcint 


oldjpo 


“j] «es we ws 


pecnt 


42 


form counter number as high order n bits of the pc address 


lda 
mov 
lda 
mov 
ora 


form high n bits of address 
by 15-n 
counters 


equ 


l»xi 


equ 
MOV 
rar 
MOV 
mov 
rar 
ani 
mOV 
dcr 
jnz 


lxi 
dad 
MoV 
imx 
mov 
imx 
mov 
dcx 
mov 
Pop 
lhid 
Mov 
mov 
lhlid 
jmp 


equ 
ds 
equ 
ds 
equ 
ds 
equ 
ds 


counters 


equ 
dw 

equ 
end 


Pcint 
c,a 
pcint+1 
ba 

a 


get low order interrupt address 
to c 

get high order address byte 

to b 

Clear carry 


via a double shift right 


(this leaves address %* 2 to address 2 byte 


15-nbits 


h, shiftc 


$—pmp+pmpbas 
a,b 


3 


$—pmp+pmpbas 
= 
$—pmp+pmpbas 
2 
$—pmp+pmpbas 
2 


$—pmpt+pmpbas 
2 


1 shl 
nc 
$—pmp+pmpbas 


(nbits) 


28 we 28 we “as we 


2p ‘a8 


5 ‘ee ‘28 


‘28 see ‘2S 


4 for 11 bits (32 bytes) 


2 for 10 bits (64 bytes) 
6 for 99? bits (128 bytes) 


high byte 

low bit to carry O to high bit 
put it back 

low byte 

bring in bit from high, 
zap low bit (times 2) 
put it back 


low to carry 


do it n times 


get base of counters 
form the counter address 
get low byte 


get high byte 
bump counter 
put it back 


both back 


restore h 
go to next processor or return 


End Listing Two 
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The C program used to control the Program Monitor and to format the counters. 


Copyright © 1984 by Poor Person Software. All rights reserved. 
Permission is granted for personal, non-commercial use only. 


to begin sampling, 
values for printing. 
#251, 


stop sampling, 


reset counters and begin sampling, 


and format counter 
The PMP intercepts BDOS calls 


and #252 


stop sampling and return a pointer to sample counters 


a/ 
#include bdscio.h 


char *fname; 
char iobufCBUFSIZ1; 


maintargc,argv) 
int argc$s 
char %**argqv$5 


| int bdos()3 
int %&ptr3 
char str(SJ35 


int ncounter,addr,lctr,addrinc,i,iarg; 


char *optname; 


(argc <2) ¢ 


/% 
/% 


/% 
/% 
/% 
/% 
/*t 


/% 


Listing Three 
/% This program interfaces with the Program Monitor Package 


/% 


pointer to file name */ 
1/0 buffer area a/ 


number of command tokens %/ 
list of pointers to tokens */ 


declare function x/ 

declare a pointer x/ 

a string for conversions %/ 
/% declare integers %/ 

pointer to option x/ 


first token is command %/ 


(Continued on next page) 





THE MOST EXTENSIVE 


LIBRARIES ANYWHERE 
for the IBM PC, XT 


. 
| THE GREENLEAF FUNCTIONS 
Total Access to the PC 


PROFESSIONAL PROGRAMMER’S TOOLS, With Comprehensive 


Manual, Full Source, Examples, Demos, & Newsletter. 


Supports All Major Compilers, All Memory Models, DOS 1.1, 2.0, 2.1 


IBM * Honeywell * Control Data * GE * Lotus... 
Hospitals * Universities * Government * Aerospace .. . 
Why not for your application? 


Save Months of Painstaking Research 


GENERAL LIBRARY — What You Would Write If You Had The Time 
* 200 functions * DOS 2.0 ¢ Video * String * Printer * Asyne * Color * Time & Date 
* Function Keys * Diagnostic * More 


#12 for-Latticée or Microsoft, or #C2 for CE C86. fos gia ee eee ees $17 500 
#D1 for DeSmet C 


re LT 


ASYNC COMM LIBRARY - Interrupt Driven Communications Capability 
* Polled Mode * Interrupt Mode * Ring Bufferred * Modem Control * CRC 
* XMODEM Protocol Pieces * More 


#13 for Lattice or Microsoft, or #C3 for Cl C86 
#D3 for DeSmet C 


#CC1 Computer Innovations C86 Compiler V2.1. 0... 066 ee eee $34900 
£0C? Larios CCompiler Vil ies Spd s Sows ete ae bate tet ee 8 $39500 
Pot SS RO Re ENA SUR AD el PRIOR Se DRT IY ec eet ele ee ee Ree 


(2 14) 446-864 1 * Add $7.00 Shipping Per Item 
* Order Direct or Ask Your Dealer * Specify Compiler and 
* MasterCard or VISA Accepted Our Part Number 


GREENLEAF 
SOFTWARE © 


GREENLEAF SOFTWARE, INC. 


2101 HICKORY DRIVE * CARROLLTON, TEXAS 75006 
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GGM—FORTH, a complete software system for 
real-time measurement and control, runs on any 
Z80 computer under CP/M using an extended fig- 
FORTH vocabulary. 


GGM—FORTH features: 


definitions using HELP* utility 


Manuals only: $ 20. 
Introductory System: $30. 
GGM SYSTEMS, INC. (617) 662-0550 


135 Summer Ave., 


| 'Z80 is a trademark of Zilog, Inc. 
2CP/M is a trademark of Digital Research, Inc. 


GGM — FORTH™ has HELP* 
for Z80' using CP/M? 


Open multiple CP/M files, in any combination 
of direct-access and sequential-access, fully 
compatible with all CP/M utilities 


Char. in/out uses CP/M console, lister, file, or 
port 


On-line HELP* provides instant access to defi- 
nitions in the run-time GGM—FORTH dic- 
tionary 


HELP* file is easily extended to include user 


HELP* is available during full-screen editing 
Complete system and manuals $150. 


Reading, MA 01867 
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P rogram Monitor P ackage (Listing Continued, text begins on page 26) 


Listing Three 
/* if no arguments (only command token) print help information *£/ 
printf ("Usage: \n\nMONITOR fname —-options"); 
printf ("\n\noptions: \n\n")s: 
printf (¢" -B => begin (fname ignored) \n") 3 
print (¢" -E => end (Output to fname if present) \n")s 
exitid)s 
Hi 
fname=""2 /* initialize pointer to null string */ 
for (iarg = 13 iarg < argc; ++tiarg) ¢ /*% process arguments one at */ 
/% a time in this loop x/ 
if(*arqvliarg] == ’-*) ¢€¢ 4% first character of token is *-” &/ 
/* must be an ’option’ x/ 
optname = argvliarg] +1; /*% set pointer to option (passed)- £/ 
if ('strcmp(optname,"B") |: !strcemp(optname, "BEGIN")) ¢ 
/* look for B or Begin x/ 
if (bdos(252,0) == 0) € /* call PMP to start samples %/ 
puts ("Program monitor not installed or already active\n"); 
exits 
+ 
+ 
else if (!strcmp(optname,"E") {i !strcomp(optname,"END")) ¢ 
/* option is © or END. print x/ 
/%*% results. Open optional file x/ 
/% for results. x / 
if (&fname) /% a file has been specified x/ 
if (fcreat(fname,iobuf) == ERROR) ¢ 
puts("File create error on %s\n"., fname) 3 
exit); /% disk must be full! x/ 
+ 
addr=0; 4% initialize address value for x/ 
/%* each line x / 
ptr=bdos (251,00); /* stop sampling and get pointer x/ 
/*% to counters x/ 
if(ptr == 90) ¢ 4/* if zero function not present x/ 


printf ("Program monitor not active\n")s 
if (*fname) fcloseliobuf)s 


exit) s /* exit x/ 

+ 
ncounter=*(--ptr); 4% number of counters is in front = x*/ 
/* of the counters x/ 
addrinc=ncounter/16; /* 16 counters per line x/ 
4% addrinc is now number of lines” */ 
addrinc=(16384/addrinc)*43; /* same as 65536/addrinc x/ 
/* addrinc is address range covered*/ 
/% by each line x/ 
lctr=0; /* initialize the line counter x/ 
ptr++s; 4% back to first counter value x/ 
while (mcounter-- ) ¢ /* loop for each counter x/ 
/* every 16 lines give a header x/ 
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if (Qlctr “4% 256) == 0) header (addrinc) ; 


/* print the address at the beginning x/ 
/% of each line a/ 


if ((lctr++ “4% 16)== 0) ¢ 


if (addr ) htostaddr,str); /* convert address to */ 
else strcpy(str,” O"); /* hex, or special case */ 


/% if file specified output to it #&/ 


/*% else put to console x/ 
if('kfname) printf("\nZs “,str); /*x no file */ 
else fprintftiobuf,"\n“%s ",str); /* file x/ 
addr += addrincs /% bump address value x/ 
7 
htos (k&ptr++, str) 5 /*% convert counter to hex x/ 
if ('kfname) puts(str); /% no file put to console %/ 
else fputs(str,iobuf)3 /*% file, put to file x/ 
> /*% loop all counters x/ 
header (addrinc) ; /% trailing header %/ 
if (xfname) { /%* if file then close x/ 
putc (’ \O32’ ,iobuf) 3 /% properly with Z x/ 
fcloseliobuf) ; 
> 
+ 
/* unknown option x/ 
else printf("Invalid option Z~s\n",optname) 5 
+ 
else fname = arqvCliargds /*% not an option, set file */ 
/* name pointer a/ 
M 
> 
/*% put out a header 
the address increment for each line is divided by 16 
to set the address increment for each counter 
x/ 


header (addrinc) 
int addrinc; 


{ 
int colinc,coladdr,i3 /* some integers */ 
char strtSi; /* a string for conversions %/ 
colinc=addrinc/163 /* address increment for each column %*/ 
coladdr=colincs /* address over second column x/ 
if('*fname) puts ("\n O")s /% first column to console &/ 
else fprintf (iobuf, "\n O") 3 /% first column to file a/ 
/* loop for 15 more columns */ 
for (i=1lsi<idsit+t+) ¢€ 
htost(coladdr, str); 7/* convert column address x/ 
if ('*fname) puts(str)3 /*% put to console x/ 
else fputs(str,iobuf) 5 /* or to file x/ 
coladdr += colinc; /* increment the column address %/ 
+ 
+ 
/% hex to string conversion 
hex value is put into string with leading blanks 
a/ 


(Continued on next page) 
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P r ogr am Monitor Package (Listing Continued, text begins on page 26) 


Listing Three 


htos(val,str) 
int val; 
Char str}; 


{ 
imt is: 
for (i1=331i1>=0O;i--) { 
strCid = (val >> ((3-i1)*4)) 
if (strCidJ < 10) 
strfCild += ’07’;3 
else 
strfCijdJ += ’7’; 
¥ 
str(C4I3=’\0’3 
for (1=03 strflid == 7075 strlit+t] 
Mi 


VANCE info systems is pleased to announce 
THE MOST COMPLETE C FUNCTION LIBRARY AVAILABLE TO DATE! 


¢lib 


C FUNCTION LIBRARY 





“Celib” is the most functional library available for software written in C, providing 
over 200 routines, extending the capabilities of C on the IBM PC. The library is 
available under the DeSmet (C Ware) C88 compiler, will be available in MicroSoft 
C, Lattice C and other C compilers, and runs using MS Dos 1.1 and later versions. 


Routines are included to handle: : 
e System Gate & time I/O e String & numeric sorting 
e Dote & time math functions e Trigonometric & hyperbolic 
e Extended screen & keyboard |/O functions 
e String & bit-field manipulation e Asynchronous communications 
e Degrees/radians conversions functions 
e And contains dozens of functions compatible with Xenix and Unix 


“Celib” features a unique windowing library transportable with Xenix function calls. 


“Cellb” also includes functions to convert floating point numbers from MicroSoft to 8087 
NDP format and vice versa. 


Documentation is offered in an easy to use printed manual or on disk for your own printing 
needs, complete with programming examples and follow-up demo programs 


The “Celib C FUNCTION LIBRARY is offered at only $145, less than most available today 


For further information on ‘‘Celib” please contact us at 


VANCE info systems 


2818 clay street ¢ san francisco, california 9415 « (415) 922-6539 


BM 15 GO trademark of international Business Machines 
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/* iis nibble number from the right */ 


133 /%* isolate nibble */ 


/*% for decimal values offset by 70” £/ 


/&% 77? + 10 = ’A’ x/ 
/*% terminate the string */ 


7 *)3 %/% replace leading zeros %/ 
/* stopping at first digit */ 


End Listings 





WRITE 


The Writer's Really Incredible Text Editor lives up to its 
name! It’s designed for creative and report writing and 
carefully protects your text. Includes many features 
missing from WordStar, such as_ sorted directory listings, 
fast scrolling, and trial printing to the screen. All editing 
commands are single-letter and easily changed. Detailed 
manual included. Dealer inquiries invited. WRITE is 
$239.00. 


BDS’s C Compiler 


This is the compiler you need for learning the C language 
and for writing utilities and programs of all sizes and 
complexities. We offer version 1.5a, which comes with a 
symbolic debugger and example programs. Our price is 
(postpaid) $130.00. 


Tandon Spare Parts Kits 


One door latch included, only $32.50. 
With two door latches $37.50. 
Door latches sold separately for $7.00. 


All US orders are postpaid. We ship from stock on many 
formats, including: 8", Apple, Osborne, KayPro, Otrona, 
Epson, Morrow, Lobo, Zenith, Xerox. Please request our 
new catalog. We welcome COD orders. 


& AS 
wes So C, 
Vr 
iy 


Workman & Associates 


112 Marion Avenue 
Pasadena, CA 91106 
(818) 796-4401 
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THE PROGRAMMERS SHOP] 


helps compare, evaluate, find products. Straight answers for serious programmers. 
IRECENT DISCOVERIES| 
SERVICES PUBLIC DOMAIN Research a Free RECENT DISCOVERIES 


* Programmer's Referral List + Dealer's Inquire : ; 

* Compare Products > Newsletter 6 months paid research gives you leverage, learning. We found, com- pr pls het ele er oh aha 
¢ Help find a Publisher ¢ Rush Order bined, added to the best. All run, have source in C or ASM. Order $150 + disk space interactive. CPM80.MSDOS | $349 
¢ Evaluation Literaturefree + Over 300 products get one free: Database, Editors, Modems, MSDOS RAMdisks & utils, 


‘ : 296. LIST OUR 
BULLETIN BOARD -7 PM OO het ae 4086 Games inC. 10) 8 90 b CNVIRONMENT PRICE PRICE 
oun ee \\teluyvej=a = PRICE PRICE EDITORS Programming WY \(eqey-Ve] 8 @isde7'N it) ts MS FORTRAN-86 - Impr. MSDOS $350 $ 225 


MSDOS: 686-8087, reliable $395 call _BRIEF-Intutve, flexible PCDOS NA 195 CToolst-String, Screen PCDOS Lieb ee 


Desmet with debugger 9 145 CScreen with source 8080/86 NA C Tools 2 - OS Interface MSDOS f { 
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PROLOG-86" 


Learn Fast, Experiment 


1 or 2 pages of PROLOG would require 10 or 15 pages 
[eT a 

Be familiar in one evening. In a few days enhance 
artificial intelligence programs included like: 


¢ an Expert System 
¢ Natural Language (generates aBASE display) 


Intro Price: $125 for PCDOS, CPM-86. 
Full Refund if not satisfied. 


CONTEST: “Artificial 
Intelligence Concepts” 


$1,000 Prize, Recognition for applications in PROLOG- 
86™ that teach, are clear, illustrate. Call for details. 
Deadline 11/31/84 


SOLUTION SYSTEMS ™ 


45-D Accord Park, Norwell, MA 02061 


617-871-5435 


Circle no. 80 on reader service card. Circle no. 81 on reader service card. 




















C Beautifier — make source more regular and readable. 
GREP - search for sophisticated patterns in text. 


There are several other utilities that help with converting 
from one C compiler to another and with printing 
programs. 


C Helper is written in portable C and includes both full 
source code and executable files 


for $135 for MS-DOS, CPM-80 Solution 


or CPM-86. Use VISA, 


Master Card or COD. « ystems” 


Call: 617-659-1571 335-D Washington Street 
Norwell, MA 02061 





CP/M 2.2 Goes PUBlic 





by Bridger Mitchell and 
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CPR, the widely used Z80 re- 
Vd placement for the standard Con- 

sole Command Processor (CCP) 
supplied with CP/M 2.2, provides a 
much-appreciated search path feature. 
When you type a command (not pre- 
fixed by a drive designation), ZCPR 
first searches for the COM file on the 
logged-in drive in the current user 
number, next searches in the default 
user number (usually configured to 
user 0) on that drive, and finally looks 
in the default user number on drive A. 
The search terminates at the first 
matched filename; the command pro- 
cessor then loads that file and begins 
executing the program. ! 

This popular feature relieves you of 
the necessity of keeping track of where 
you have stored many programs. By 
putting commonly used programs in 
the default user number directory, you 
can make COM files accessible from all 
directories. In Rick Conn’s ZCPR2 and 
ZCPR3, you can also specify a particu- 
lar search path for any specific file; 
this capability allows you to construct 


grams—such as editors, formatters, 
data base managers, assemblers, and 
compilers—require overlays, work/ 
swap files, libraries, dictionaries, and 
data base files that usually must reside 
in the directory of the logged-in drive 
and user number. 

Currently three methods enable you 
to use such a program from more than 
one user number. You can use brute 
force to create copies of all of the files in 
several user numbers, a technique that 
very rapidly chews up disk storage. Or 
you can duplicate the directory entries 
(but not the files) into each user number 
with the public domain DUPUSR utility; 
this approach consumes more directory 
entries (but no additional disk space), 
and you run the risk of unintentionally 
deleting a key file should you forget to 
warm boot after erasing a duplicated di- 
rectory entry. (After an erasure, the 
BDOS does not rebuild the disk group 
allocation vector and considers the 
“erased” sectors to be free for subse- 
quent file-write operations. ) 

The third method is to load a search 


“The PUBlic file approach requires no additional disk 
space, directory entries or memory; it leaves the 
original file intact; and it protects files against 
accidental erasure.” 





hierarchical directories. 

The ZCPR search path is implement- 
ed at the CP/M command level and 
therefore works only for COM files. Un- 
fortunately, this limits its usefulness for 
programs that refer to other ‘“‘associat- 


ed” (non-COM) files. Many major pro- 


Bridger Mitchell & Derek McKay, 
Plu* Perfect Systems, Box 1494, 
Idyllwild, California 92349. 


path utility, such as Michael Ruben- 
stein’s SETDRU, that intercepts BDOS 
disk function requests and redirects ref- 
erences to specified files. You first con- 
figure a filter utility with a list of associ- 
ated files and their user numbers. The 
program (or a pre-program) then loads 
the filter into high memory where it 
traps and reinterprets requests for any 
associated file. SETDRU, however, uses 
some memory and cannot be run with 
other resident modules, such as EX and 
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XSUB (batch processing programs—the 
former public domain, the latter from 
Digital Research), The Background- 
er ®, and so on. 


PUBlic Files 

Plu*Perfect Systems has developed a 
new “PUBlic file’ approach that is 
both simple and flexible. It requires no 
additional disk space, directory en- 
tries, or memory; it leaves the original 
files intact; and it protects files against 
accidental erasure. You simply set a 
single directory attribute bit—bit 2 of 
a filename—to make any file PUBlic 
and accessible from all user numbers 
on that drive. For example, once an 
editor and its swap and overlay files 
have been marked PUBlic, you can edit 
a file stored in any user number by 
switching to that user number and run- 
ning the editor. This requires only one 
copy and one directory entry of the edi- 
tor and its associated files. 

The key to the PUBlic file approach 
is a patch that causes the BDOS to 
match a requested filename, regardless 
of user number, if that filename in the 
disk directory has the second attribute 
bit set. Because the directory carries 
the status of the file, the BDOS can de- 
termine, in a single scan of the directo- 
ry, which file to open. 

Our initial tests of this approach 
were encouraging but revealed one 
troublesome side effect: wild card (am- 
biguous) filename requests such as 
2?.COM or *.OVL frequently would 
match a PUBlic file. This meant that 
DIR and most directory utilities would 
list all PUBlic files in every user num- 
ber. Much worse, ERA*.* would uncer- 
emoniously wipe out every PUBlic file! 

After some experimentation, we 
modified the BDOS patch so that a wild 
card request will never match a PUBlic 
filename. The only way to erase a PUB- 
lic file now is to type its exact (unam- 
biguous) filename; you can do this from 
any user number. This also means that 
PUBlic files are not normally displayed 
in directories, which gives them a spe- 
cial type of SYStem status. DIR will 
still display a PUBlic file—if you give 
its exact name. But because you are 
more likely to use DIR to determine 
what files you have, whether you can 
remember their names or not, some- 
thing more is needed. 

Enter the PUBLIC program: a sup- 
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For the first time, a 
programmer's editor that is 


both intuitive and powerful 
...and configurable to suit your style 


The New Standard. No longer does an Editor have to be “‘in your way”’ to provide full 
power. By combining power with natural flow, the new advanced BRIEF is in a class 
by itself. 


BRIEF lets you concentrate on programming. Your thoughts flow smoothly, intuitively. 
15 minutes is all you need to become fully productive. You can then do precisely what 
you want quickly, with minimum effort and without dull repetitions. 


BRIEF adapts to your style. You can use BRIEF without modification, because it’s 
distributed with an “ideal” configuration. Or you can make any change you want, add 
any feature of your own. Reconfigure the whole keyboard or just the Function Keys. 
Change the way the commands work or just the start-up defaults. 


Availability: PCDOS-compatible systems with at least 192K and one floppy drive are 
required. Though your initial copy is protected, an unprotected version is available 
when you register BRIEF. 


Pricing: Only $195... with discounts for volume end-users. A demonstration version is 
available for only $10, 


Win $1,000 and substantial recognition for the Outstanding Practical BRIEF Macro. 
Other awards will also be given. 





BRIEF’S PERFORMANCE IS NOT EQUALLED IN MICROS, MINIS AND MAINFRAMES 


@ Full UNDO (N Times) @ Windows (Tiled and ‘‘Pop Up’’) 
@ Edit Multiple Large Files @ Unlimited File Size 

@ True Automatic Indent for C @ Reconfigurable Keyboard 

@ Exit to DOS Inside BRIEF @ Online Help 

@ Uses All Available Memory @ Search for Complex Patterns 

@ Intuitive Commands @ Mnemonic Key Assignments 

@ Tutorial @ Horizontal Scrolling 

@ Repeat Keystroke Sequences m@ Comprehensive Error Recovery 


PLUS a Complete, Powerful, Readable, Compiled MACRO Language 


Solution 
Systems’ 


335-D Washington St., Norwell, MA 02061 


Circle no. 67 on reader service card. 


Try BRIEF. Usethe Demo... 
or the full product for 30 days. 


Callorwriteus... 
617-659-1571 


BRIEF is a trademark of Underware. 
Solution Systems is a trademark of Solution Systems. 
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porting utility that (1) displays all PUB- 
lic files, (2) lets you make any file PUB- 
lic as long as it is the only file with that 
name in all user numbers, and (3) lets 
you return any PUBIlic file to the private 
sector.> PUBLIC works because of a sin- 
gle exception to the “no wild card 
matching” rule: if the first (drive) byte 
of the file control block (fcb) is the CP/ 
M wild card character ‘“?”, then the 
patched BDOS will match every directo- 
ry entry, including PUBlic files and 
erased files. (The source code for PUB- 
LIC is in Listing Two, page 61.) Thus 
PUBLIC can search every directory en- 
try on the disk to display all filenames of 
interest. We have also added this feature 
to the popular super directory (SD) utili- 
ty; the extended version shows PUBlic 
files in a separate listing category. 

We considered, and rejected, the 
CP/M 3.0 and MP/M method of using 
the SYStem attribute bit to make a file 
PUBlic if it is in user 0. In addition to 
requiring longer patches not easily shoe- 
horned into the BDOS, this approach is 
risky. Using STAT you can set the SYS- 
tem bit of a user O file, and if that file 
also exists in user n, the results can be 
disastrous: in servicing each extent of a 
file request logged into user n, the BDOS 
will open whichever entry first appears 
in the disk directory. 


Patching the BDOS 
We wrote the BDOS patch (Listing 
One, page 51) in Z80 code, which en- 
abled us to fit it entirely within the 
BDOS. The functional changes are all 
in the internal BDOS function 
FINDNXT, which finds the next direc- 
tory entry matching the supplied fcb. 
To gain space we recoded part of anoth- 
er routine GETNEXT and also used the 
free bytes at the end of the BDOS. Be- 
cause this area occasionally is used for 
other patches—e.g., the Kelly Smith 
ARCHIVE utility—you should check 
your copy of the BDOS for possible con- 
flicts. The flow of control is somewhat 
indirect; we solved the integer packing 
problem of fitting code fragments into 
rather tight, odd-length segments by 
trial and error! To install the patch on 
8080 machines, you will need to rewrite 
the patch in 8080 opcodes and find some 
extra space in the BIOS. 

One of the CDL MACRO Z80 assem- 
blers or the Digital Research MAC is 
well suited for the patching task be- 
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cause it generates hex output for the 
exact code area without adding extra 
zero-filled bytes. After assembling the 
patch, use DDT to load it with an offset 
directly on top of the system image. If 
you don’t have an assembler with this 
feature, you can assemble the patch, 
load it into an area above the SYSGEN 
image, and move the exact number of 
bytes into place with DDT.# 

It goes without saying that you 
should thoroughly test any file system 
patching first on floppies and, of 
course, back up all files before 
beginning. 


A CP/M 2.2 Bug 

In working out the BDOS patch, we un- 
covered a CP/M bug: although the 
CP/M 2.2 Interface Guide states that 
the Rename and Erase functions re- 
turn the values 0, 1, 2, or 3 on a suc- 
cessful operation, in fact CP/M 2.2 re- 
turns only 0 on success (and OFFh on 
failure). Moreover, the Set Attribute 
function uses the same exit code, yet 
the Guide omits any mention of this 
function’s return status value. It turns 
out that the correct code is actually 
shorter, and we have included it in our 
patch. It seems desirable to make this 
correction since a program that uses 
one of these functions may occasional- 
ly wish to access the BIOS directory 
buffer to retrieve the directory fcb for 
the matched entry. 


Copying Files with Attribute Bits 
Many programs have a preference for 
the private sector. In both the original 
CCP and the replacement ZCPR, the 
REName file command removes all at- 
tributes. Similarly, most file copy utili- 
ties (e.g., PIP, SWEEP, and DISK7) 
create the copy with no attribute bits. 
Thus, copying a PUBlic file with PIP 
creates a private version; if the destina- 
tion drive is the same as the source, this 
operation also erases the original PUB- 
lic source file. Many editors also do not 
preserve attribute bits, so editing a 
PUBlic file turns it into a private citi- 
zen once again. 

To support renaming and copying of 
PUBlic files (as well as SYStem and 
Read/Only files), we have extended 
Frank Gaude’s DISK7. The new ver- 
sion copies a file with its attribute bits 
intact and has an option for listing all 
PUBlic files. In PUBLIC, SD, and 


DISK7 we adopted the convention of 
displaying a filename character in low- 
er case when its attribute bit is set. 
This convention readily identifies PUB- 
lic, SYStem, and Read/Only files. It is 
almost totally portable, and program- 
mers revising other file copy, directory, 
and communications programs might 
consider adopting it. 

PUBlic files, combined with the 
ZCPR-type search path for loading 
programs, provide 90% of the control 
over user numbers that is needed on a 
CP/M system. What is still missing is 
the ability within most running pro- 
grams to use private files in several 
user numbers. An excellent solution is 
to build file reference by user number 
into the language, as Leor Zollman has 
done in version 1.5 of his BDS-C. With 
this feature, for example, MINCE can 
concurrently edit files from several 
user numbers. Otherwise, you may be 
able to fix up major programs on a 
piecemeal basis. For example, we have 
patched the Perfect Writer version 
that was bundled with the Kaypro 
computers to add a “change user num- 
ber” command. 

The PUBlic file approach does differ 
in some respects from a fully imple- 
mented search path because private 
and PUBlic files with the same name 
cannot peacefully coexist on the same 
drive. Its principal advantages are that 
a single-pass search of the directory 
suffices for each open-file service re- 
quest; the code occupies no extra space 
on a CP/M system and does not inter- 
fere with resident modules in high 
memory; and user programs needn't be 
modified. 

We have found PUBlic files to be a 
major convenience. For example, we 
used a PUBlic editor and swap file in a 
single editing session to revise this arti- 
cle and the program files, which were 
stored in two separate user numbers, 
and to retrieve notes stored on a back- 
up floppy from a third. 


Availability 

The PUBlic file BDOS patches and 
PUBLIC utility program are copyright- 
ed © 1984 by Plu*Perfect Systems, all 
rights reserved. We are releasing them 
for single-user use, with the restriction 
that they be used solely for noncom- 
mercial purposes. We hope that they 
will prove useful to many others. No 
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use of this code in commercial soft- 
ware or systems is permitted in any cir- 
cumstances without advance written 
permission from Plu*Perfect Systems. 

Plu*Perfect Systems markets an en- 
hanced operating system for Kaypro 
computers that incorporates the PUBlic 
file and command search path features 
and adds bidirectional typing capabili- 
ty. For users with other hardware, we 
can supply a disk for noncommercial 
use with all of the PUBlic files (source 
code for the patches and the PUBLIC 
utility, copies of the extended SD.COM 
and DISK7.COM, an assembled hex-re- 
locatable version of the patch, and a re- 
locating loader) for $12 on either an 8- 
inch SSSD format disk or a number of 
5%-inch formats. Please specify the for- 
mat you need. 


Notes 

1. Richard Conn, Ron Fowler, Keith Peter- 
son, and Frank Wancho developed ZCPR 
and placed it in the public domain. It is 
available from SIG/M User Group, Box 97, 
Iselin, NJ 08830. ZCPR3, written solely by 
Rick Conn, is available from Echelon, Inc., 
101 First St., Los Altos, CA 94022. Ben 
Goldfarb has adapted portions of the Z80 
ZCPR code to create an 8080 version of the 
CCP that incorporates the search path 
feature. 

2. We do not use attribute bit | because we 
have already used it as a loading flag for 
keyboard definitions files for The Back- 
grounder—a resident background process 
utility currently available for Kaypro com- 
puters that also allows keys to be redefined 
dynamically. 

3. PUBLIC is convenient but not essential; 
any program, such as Rick Conn’s PRO- 
TECT, that can set and reset all attribute 
bits will move files to and from the public 


sector. (Version 1.0 of PROTECT has one 
bug that causes it to fail to find large files 
on large hard disk systems because of an 
incorrectly calculated extent number.) Be 
careful not to set the PUBlic attribute bit of 
a file that has the same name as a file in 
another user number. 

4. Alternatively you could assemble the 
patch for a 32K CP/M system and install it 
in the MOVCPM image. However, this 
would require generating and installing a 
new bitmap for the modified bytes. We find 
it easier to have separate system images for 
the handful of different system sizes need- 
ed for any one machine. 


DDJ 


Reader Ballot 
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CP/ M Zid (Text begins on page 48) 

Listing One 

2 .settim 21:30:09 

3 .setdat 04/13/84 

6 .remark ~ 

v -- PUBPATCH -- 

8 

9 A CP/M 2.2 BDOS modification to support the PUBlic filetype. 
10 

Ll tenn 
12 Copyright (c) 1984 -- All rights reserved. 
13 

14 Plu*Perfect Systems 

15 P. O. Box 1494 
16 Idyllwild CA 92349 

V0  e 
18 


19 Attribute bit 2 of a filename signifies a PUBlic file, 


28 accessible by its unambiguous filename from all user 


21 numbers. 


23 PUBlic files are not accessible via the usual ambiguous 


24 filenames (e.g. *.* or ABC.D?F), to prevent unintentional 
25 erasure and avoid directory clutter. 


27 Directory entries for PUBlic files are, however, accessible 
28 via ambiguous filenames by using the BDOS search for-first, 
29 search-for-next functions with a '?' in the drive-byte of the 


30, eb. 


Extended versions of SD and DISK7 displays PUBlic files. 


32 To erase a PUBlic file, use "ERA unambiguous- filename". Or use 


33 DISK. 
34 wildcard erase command. 


Or change it to a private file and then erase with a 


36 The PUBLIC.COM utility is available to make files either 
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CP / M ZZ (Listing Continued, text begins on page 48) 


Listing One 


52 


PUBlic or private and to list the current PUBlic files. 


If another utility is used to set the PUBlic attribute bit, 
avoid creating multiple files with the same name on the same 
drive, unless all of them are private. (PUBLIC.COM checks 
for this situation and prevents a conflict.) 


The REName command removes all attributes, so RENaming a 
PUBlic file will make it private, R/W, DIR in its original 
user number. 


eremark ~ 
--- TO INSTALL -—-- 


la. Determine the BIOSBASE address of your system in memory 
by subtracting 3 from the warm-boot address in memory: 
DDT 
L@ 
subtract 3 ==> BIOSBASE address 
lb. Subtract 16@0H to determine the CCPBASE MEMORY address. 
lc. Assemble PUBPATCH for these addresses. 


Either: use CDL's MACROIII assembler: 
MACROIII PUBPATCH A:DHK 


Or: convert the pseudo-opcodes to your assembler's 
pseudo-ops and assemble into a HEX file. 


e.G- aL OC a org 
= ae set 
=\ == ees, etc. 


2. Create a system image for the SYSGEN operation. 
There are two ways to get the image: 


a. Either use SYSGEN to extract a system image from a disk 
in the usual manner -- 
SYSGEN 
source drive? A 
destination drive? <CR> 
SAVE pp ORIG.SYS. Use pp=58 pages or so to get 
the entire BIOS. 


b. Or generate a new system —- 
MOVCPM ss * where ss=64 for a 64K system, 
SAVE pp ORIG.SYS or whatever you are running. 


3. Find the base address of the Command Processor in the image 
DDT ORIG.SYS 
Look for the command processor at 98@H: 
You recognize it by two JMP instructions, followed by 
the command buffer (containing a Digital Research 
copyright notice, in the case of the original CCP): 
L980 
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EAGO 


DC9B 
D498 


E32D 
E205 
ELF5 
EL/E 
E1L5E 
E307 
ELFE 
DF@L 
E9D9 
E9D8 
EQEA 
DF 45 
E9D4 


93 
94 
8 
96 
a7 


98 

99 
186 
181 
182 
183 
164 
195 
186 
107 
188 
199 
11G 
Lil: 
112 
a Ae 
114 
115 
116 
EEF 
118 
19 
12G 
121 
E22 
123 
124 
125 
128 
129 
130 
132 
L32 
33 
134 
135 
136 
ey, 
138 
a9 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
154. 
152 
L153 


D9I8G 
Call that address CCPBASE IMAGE (normally 98Q0H). 
(If you don't find it, you have a non-standard system, and 
your user's manual should have a memory map. See, e€.9g., 
the Compupro Disk 1 Controller manual, sec. 6.4). 


4. Calculate the offset needed to cause the PUBPATCH.HEX file to 
load on top of the BDOS image. '‘offset' will satisfy: 


CCPBASE IMAGE = CCPBASE MEMORY + offset 
5. Create a new system image containing the patch: 


DDT ORIG.SYS 
IPUBPATCH. HEX 
Roffset 

GG 

SAVE pp NEWSYS.SYS 


6. Finally, put the new system on a FLOPPY disk for testing: 


SYSGEN NEWSYS.SYS 
<CR> 
destination drive 


Code also corrects a CP/M 2.2 bug that caused 
Rename, Set Attribute, and Delete File functions 
to return @ status on success instead of 9,1,2,3 
per CP/M 2.2 Installation Guide. 


~phex 
biosbase =\ "Enter BIOS base address for PUBPATCH (XxxxH) " 


bdosbase = biosbase - We@Gh 
ccpbase = biosbase - 169@@h 
eremark ~ 
biosbase = Yea@Gh ; kayprol@ v 1.9 
= Ofa0Gh ; kaypro 2 
= SdcVOh ; h89 
~ Internal BDOS locations: 
7 
FINDNXT = bdosbaset+@72Dh 
NXENTRY = bdosbase+@6@5h 
CKFILPOS = bdosbaset+@5F5h 
MOREFLS = bdosbaset+957Fh 
FCB2HL = bdosbase+¥@55Eh 
SAMEXT = bdosbaset+9787h 
STFILPOS = bdosbaset+@5FEN 
SETSTAT = bdosbaset+¥83@1h 
SAVEFCB = bdosbase+8DD9h 
COUNTER = bdosbaset+@DD8h 
FILEPOS = bdosbase+@8DEAh 
STATUS = bdosbase+@345h 
FNDSTAT = bdosbase+@DD4h 


(Continued on next page) 
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Listing One 


E154 
E144 
E318 
E26B 
E1C6 
E1F5 
E8D7 
E9C5 
E9D2 
E9D3 
E524 
E45A 
E@BB 
DF@1 
DF@5 
E178 


E32D 


E32D 
E338 
E333 
E334 
E337 
E33A 
E33C 
E33F 
E340 
E341 
E343 
E345 
E346 
E349 
E34A 


E34C 
E34F 
352 
353 
B355 
E356 


E358 
E359 
E35B 
E35D 
E35E 
E368 
E362 
E305 


54 


21 OBBG 
22 5399 
4c 

CD E205 
CD ELF5 
2866 

2A E9D9 
EB 

1A 

FEES 
2807 


CD ELSE 
3A E9D8 
47 

BEBO 

B/ 

2847 


79 

FE@D 
2836 

1A 

FE3F 
2085 

32 E39A 
182C 


154 
£55 
156 
D7 
158 
b dete 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 


ii3 
174 
LiS 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
199 
b har Be 
192 
Be 


195 
196 
197 


Log 
290 
201 
202 
203 
204 
205 
206 


CHKWPRT 
CHKROF'L 
FINDE'ST 
SETF ILE 


DIRWRITE 
CKFILPOS 


DELF ILE 
EXTMASK 


CLOS EFLG 
RDOWRTFLG 
GETEMPTY 


OPENITL 
STRDATA 
SETSTAT 
IOERRL 

SETS 2B7 


7 


fnxt@: 


7 
Txtys 


inxr2* 


-pabs 


~loc 


Tx} 
shld 
mov 
call 
call 
BB ee 
lhld 
xchg 
ldax 
cpl 
Itz 
push 
call 
DOp 


jrne 


call 
lda 
mov 
mvi 
ora 
TES 


MOV 
cpl 
jxrz 
ldax 
cpi 
jrnz 
sta 
she 


bdosbaset+@554h 
bdosbase+@544h 
bdosbase+9718h 
bdosbase+@66bh 
bodosbase+95c6h 
bdosbase+@5£5h 
bdosbase+¥9cd7h 
bdosbase+@dc5h 
bdosbase+¥dd2h 
bdosbase+@dd3h 
bdosbaset+8924h 
bdosbase+¥85ah 
bdosbase+94bbh 
bdosbase+93¢81h 
bdosbase+9395h 
bdosbase+@8578h 


FINDNXT 


h,@ 
pflag 
c,h 
NXENTRY 


CKF ILPOS 


nomatch 
SAVEFCB 


d 

GE5h 
fnxtl 

qd 
MOREFLS 
qd 
nomatch 


FCB2HL 
COUNTER 
b,a 

c,@ 

a 
matched 


a,c 
13 
nxtbyte 
d 

AS 
Enxt3 
qflag 
nxtbyt 


yinitialize PUBlic & wildcard flags 
7 

*if done 

;de=user- fcb 


7if Getempty fn wants first 
;--deleted file slot in directory 


*1£ no more files 
;hl=directory fcb 
;d=count 

;c=byte # 

;COUNTER=@0 ==> Search fn 
72-SO match every entry 
;get byte # 

7omit Sl byte 

,get user-fcb cnar 


;Llag wildcard 


(Continued on page 56) 
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¥or1 5 


Including a new dynamic debugger 
Still the choice of professionals 


¢ Compiler option to generate special ¢ Clink option to suppress 
symbol table for new dynamic warm-boot 
debugger by David Kirkland. (With the 
debugger, the distribution package 



























edward k. ream 


e New library file search capabilities 





now requires two disks.) e New, fully-indexed 180 page manual 
¢ Takes full advantage of CP/M® 2.x, ¢ * CP/M is a trademark of Digital 
including random-record read, seek Research, Inc. 


relative to file end, user number 
prefixes, and better error reporting. 


Wine. $120.00 IT'S HERE! 
FULL SCREEN EDITOR V 1.46 ....$115.00 _ MONEY MATH 


(needs only 1.4 CP/M) 





representation. 


with Other C compilers and * You choose from two types 
C related products of rounding. 
e available .. . Call! * Configurable exception 
FULL SOURCE CODE In C TERMS: CHECK eee oe 
: e Distributed wi igits 
f MONEY ORDER, C.O.D., precision. Easily configured 
or CHARGE CARD for more or less 
HOURS: 9 am—5 pm e Excess 64 exponents 


NERY < NeY SOURCE 
(316) 431-0018 INCLUDED $5900 





CP/M 68K or CP/M 80 





















aw Yr) 
e RED is a powerful yet simple full screen text ———ENEDIMS; 


&, 


j, Dedicated Micro Systems. Inc. 


PO Box 481, Chanute, Kansas 66720 


editor for both programmers and writers. 



























e RED features 17 commands including block include $2.50 for postage and handling 


move, block copy, search and substitute. 


e RED comes with full source code in Circle no. 22 on reader service card. 


standard C. RED works as is with the 
BDS C, Aztec CII and Digital Research 
Compilers. 





A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 


e RED supports a// features of your terminal. 
You tailor RED to your terminal with an 
easy-to-use configuration program. 


e RED handles files as large as your disk. 


e RED is guaranteed. If for any reason you 
are not satisfied with RED, your money will 
be refunded promptly. 


Price: $95. 


Call today for more valuable information: 
(608) 231-2952 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M" 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 


To order, send a check or money order to: 


Edward K. Ream 
1850 Summit Avenue 
Madison, Wisconsin 53705 


Your order will be mailed to you within one week. Sorry, I can 
not handle credit cards. Please do not send purchase orders 
unless a check is included. RED is distributed only on 8 inch 
CP/M format disks, but other disk formats are available 
through third parties. 





Dealer inquiries invited. 


*CP/M is a Trademark of Digital Resaerch, Inc. 


Circle no. 61 on reader service card. 


CP/M 2.2 
Listing One 


E367 
£368 
E36A 
E36B 
E36D 
E36E 
E370 
E371 
E372 
E374 
E375 
E376 


E378 


E379 
E37A 
E37C 
E37F 


E381 
F383 
E384 
E386 
E387 
E389 
E38B 
E38C 
E38D 
E39@ 
E391 


E33 
E394 
E395 
E396 


E399 
E39A 
E398 
E39B 
E39C 


E39D 


56 


21 B88OO 
7D 
A4 


208E 


(Listing Continued, text begins on page 48) 


207 
208 
209 
216 
a 3 
412 


214 
215 
216 
“auf 
218 
219 
220 


221 
222 
225 


224 
225 
226 
Let 
228 
229 
239 
231 
232 
233 
234 
233 
236 
257 
238 


24G 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
Fo 
253 
254 
255 
256 
257 
258 


; 
fnxt3. 


mov 
cpl 
MOV 
jrz 
ora 
jrnz 
1nx 
inx 
bit 
dcx 
dcx 
jxrz 


a,m 
GE5h 
ae 
chkext 
a 
chkext 
h 

h 

7,™ 

h 

h 
chkext 


; the file ts Public 
; —~ but is BDOS looking for an empty directory slot? 


MoV 


dcr 
Busy 
sta 
jx 


a 
chkext: cpi 


ldax 
JEZ 
sub 
anil 


jr 


tstext: push 


MOV 
call 
Dop 


extdone:jrnz 


7 
nXthyts> ink 


eo “Oe ™e@ ™Oe MO 


inx 
inr 
djnz 


a,b 


a 
fnxtd 
pflag 
nxtbyt 


12 

d 
tstext 
m 

Q7fh 
extdone 
b 

c,m 
SAMEXT 
b 
fnxtd 


fe | 
h 
C 
f 


nxtzZ 


;get directory-fcb char 

;check for blank/deleted file 

7A = byte # 

71£ a deleted file, omit user # check 


7;Or 1f not user # byte 
7else check for PUBlic file 


;.sat attribute: bit: 2 


71£ not PUBlic, match on user # 


71£ COUNTER=1, this is a Getempty request 


7 

zeeSO go to next file 

7;else flag the file PUBlic, 
yeeand omit matching user # 

; (A=byte #) 

rextent byte(#12) is special case 
,compare the characters 
;~-excluding attribute bits 


;check for same extent 


71£ mismatch, get next file 
;chars match, bump to next byte 


;byte # ++ 
,count- 


here if+- COUNTER > 1 and filenames match 


for PUBlic file and wild-card combination: 


Test 

pflag = .+1 

qflag = .+2 
1xi 
mov 
ana 
jrnz 

; 

; here if-- 


A 2 
te e 


fnxtd 


;flags initially = @, but 
, = COUNTER-1l if PUBlic 
Pen) ke 2" an Febade ee 


e 
7 


311. file. is -PUBLAC 

;eeand there's a wildcard 

; (SERS Aaa Ser ee 
7-eget next directory entry 
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259i; 3 (a) nom-PUBlic filenames match, 
260 ; or (b) findall-files (searchfirst/searchnext functions 
26:5 with drive byte = '?') 
262 ; or (c) delete unambiguous PUBlic- filename. 
pS ee 
E39F C3 ESAE 264 matched: jmp PATCH 1 
205.°°3 
BE3A2 CD EIFE 266 nomatch:call STF ILPOS 
B3A5 7D 267 MOV a,l > 1=@0ffh 
E3A6 C3 DFGL 268 jmp SETSTAT 
2Oa%; = 
Bie es the ERASE FILE routine -- in a new location 
OM 5: aie 
ve. Ease Routine is split, with remainder stuffed 
Fat Bs Mea into free bytes at end of BDOS. 
OA fee 
E3A9 CD E154 277 ERAFILE:call CHKWPRT ;write-protect aborts 
E3AC @EGC 278 mvi oan 
E3AE CD E318 279 call FINDFST 
E3Bl CD EIF5 28@ erafl: call CKFILPOS scheck for "E5’ case 
E3B4 C8 281 CZ 
E3B5 CD E144 282 call CHKROFL ;readonly file aborts 
E3B8 CD ELSE 283 call FCB2HL 
E3BB C3 EQEE 284 jmp PATCH 2 


(Continued on next page) 
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The BDS C Compiler... 


“Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent.” 


That’s what InfoWorld said when we introduced 
the BDS C Compiler four years ago. Today, the 
updated BDS Version 1.5 is even better. 

First, the BDS is still the fastest CPM/80-C 
compiler available anywhere. 

Next, the new revised user’s guide comes 
complete with tutorials, hints, error messages and an 
easy-to-use index — the perfect manual for beginner 
or seasoned pro. 

Plus, the following, all for one price: Upgraded file 
searching ability for all compiler/linkage system files. 
Enhanced file I/O mechanism that lets you 
manipulate files anywhere in your system. Support 
system for float and /ong via library functions. An 
interactive symbolic debugger. Dynamic overlays. 
Full source code for libraries and run-time package. 
Sample programs include utilities and games. 

Don’t waste another minute on a slow language 
processor. Order now. 

Complete Package (two 8”SSDD disks, 181-page manual): 
$150. Free shipping on prepaid orders inside USA. VISA/MC, 
C.0.D.’s, rush orders accepted. Call for information on other 


disk formats. BDS C is designed for use with CP/M-80 operating systems, version 2.2. 


or higher. It is not currently available for CP/M-86 or MS- DOS. 





BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 


(617) 576-3828 


Wd 





Circle no. 5 on reader service card. 
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Announcing a 


TOTAL PARSER GENERATOR 


<GGAL> : = <AARID> <COMPILER> <DESIBN> 


SLICE YOUR COMPILER 
DEVELOPMENT TIME 


An LR(1) parser generator and several sample compilers, 
all in Pascal for your microcomputer. 















Generates parser, lexical analyzer and skeleton 
semantics 
e Universal, state-of-the art error recovery system 

e Adaptable to other languages 

e Interactive debugging support 

e Thorough documentation 

e TURBO PASCAL”™ INCLUDED FREE OF CHARGE 
e Includes mini-Pascal compiler, assembler, simulator 
in SOURCE 


SPECIAL INTRODUCTORY OFFER $1995 


QPARSER™ runs on IBM PC/DOS in Turbo Pascal. Parser generator in object form; all else in source 
QPARSER takes a grammar and generates a correct, complete, high-performance compiler with skele- 
ton semantics in Pascal source. Easy to add full semantics for YOUR application. Excellent for industrial 
and academic use. An accompanying textbook (SRA publishers) available in 1985. Training can be 
arranged 











Educational and quantity discounts available. Check, money order, Mastercard, Visa. California resi- 
dents add 6.5% sales tax. 

WRITE OR CALL FOR FREE BROCHURE. 

Technical details: call 408/255-5574. Immediate delivery. CALL TODAY! 


se ip Ge Boman vg ben | 


1164 Hyde Ave., San Jose, CA 95129 
TOLL FREE: 800-538-9787 
(California residents call 408/255-5574) 
T™ Turbo Pascal is a registered trademark of Borland International 


Circle no. 56 on reader service card. 
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CP / M 2.2 (Listing Continued, text begins on page 48) 
Listing One 


E3BE 


EQEE 


EQEE 
EQEE 
EIF@ 
EQF 2 
E9F5 
E9F8 
E9FB 
E9SFE 


E571 


E571 
E573 
E574 
E577 
E578 
E57B 
E97C 
E57E 
E581 
E584 
E585 


E588 
E589 
ES8A 
E58B 
E58C 
E58E 
E590 
E592 
E595 
E598 
E59A 
E59D 
ES9E 
ES5AQ 
E5A3 
E5A6 
E5A8 


58 


36E5 
GEGO 
CD E26B 
CD E1C6 
CD E32D 
C3 E3Bl1 


CD E45A 
CD E@BB 
AF 

C3 DEFG1 


285 
286 
287 
288 
289 
290 
29k 
292 
223 
294 
295 
296 
ed 
298 
299 
390 
381 
382 


365 
386 
397 
388 
309 
318 
311 
The 
3.3 
314 
315 
316 
317 
318 
319 
326 
54 
se2 
323 
324 
325 
326 
Sey 
328 
329 
330 
334 
332 


334 
335 
336 
337 
338 


LAST1 = 


™=e ™O 


ymust be <= bdosbase+@7BEh 


;Remainder of ERASE routine goes at end of BDOS 


v 


PATCH2: 
eraf2: 


eraf3: 


LAST2 = 


~loc 


mvi1 


mvi1 


call 
call 
call 
jmp 


bdosbase+@deeh j;there are 18 spare bytes 


m,¥ZE5h 
C28 
SETFILE ;clear file's space in bitmap 
DIRWRITE ;write directory sector 
FINDNAT ;look for next entry 

erafl 

rmust be <= bdosbaset+@E@Gh 


;install erase mark 


;rewrite last part of bdos GETNEXT routine to gain space 
’ 


gnxt3: 
gnxt4: 


jsetst: 


7 
gnxt1: 


gnxt2: 


gnxt5: 


«LOC 


3EZ 
mov 
lda 
ana 
1x1 
ana 
IZ 
call 
call 
Xra 


jmp 


bdosbase+@971h 

gnxtl ;( overlaying jz gtnextl) 
D,a 7extent byte 

EXTMASK 

b 

h,CLOSEFLG 

m 

gnxt2 ;must read next extent 


OPENIT1 ;open current extent 
STRDATA ;update rec#, extent#,... 
a 

SETSTAT 


Nave overflowed normal extent, check s2 byte 


inx 
inx 
inr 
Mov 
ani 
4EZ 
mvi 
call 
call 
jrnz 
lda 
inr 
JEZ 
call 
call 
jrnz 
call 


h ;Shorter code, replacing 
h sixX1'D,2 & Gad b 

m ;oump s2 byte 

a,m 

8fh 

gnxt5 ;error if too many extents 
aye Bes: ,open the next extent 
FINDFST 

CKFILPOS 

gnxt3 

RDWRTFLG ;no extant extent 

a 7--1f reading, can't open one 
gnxt5 


GETEMPTY ;writing, so get next free entry 
CKFILPOS 
gnxt4 
IOERRL 


;and if no error, save the data 
;set error & 


(Continued on page 60) 
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oe (Free update for our early customers!) 

i | |e Edit & Load multiple memory 

y The one and only adult Lisp system for CP/M users. | resident files. 

Z e Complete 8087 assembler 
mnemonics. 

e High level 8087 support. 


Full range transcendentals 
(tan, Sin, Cos, arctan, 
logs and exponentials) 


Data type conversion and 
1/O formatting. 

e High level interrupt Support. 
Execute Forth words from with- 
in machine code primitives. 

e 80186 Assembler extensions for 
Tandy 2000, etc. 

e Video/Graphics interface for 
Data General Desktop Model 10 


HS 
FORTH 


e Fully Optimized & Tested for: 
IBM-PC IBM-XT IBM-JR 
COMPAQ EAGLE-PC-2 
TANDY 2000 CORONA 
LEADING EDGE 


(Identical version runs on almost all 
MSDOS compatibles!) 


e Graphics & Text 
(including windowed scrolling) 















War secrane 







Sur ehaaiie' oc. -s ees ee Waltz Lisp is a very powerful and complete implementa- 
a ete Te tion of the Lisp programming language. It includes 

_ features previously available only in large Lisp systems. In 

E fact, Waltz is substantially compatible with Franz (the Lisp 

p running under Unix), and is similar to MacLisp. Waltz is 

E perfect for Artificial Intelligence programming. It is also 

y most suitable for general applications. 
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A Much faster than other microcomputer Lisps. © Long integers (up to 611 digits). Selectable radix * True dynamic 
A character strings. Full string operations including fast matching/extraction. ° Flexibly implemented random file access. 
A Binary files. ¢ Standard CP/M devices. ° Access to disk directories. © Functions of type lambda (expr), nlambda 

3 (fexpr), lexpr, macro. ® Splicing and non-splicing character macros. * User control over all aspects of the interpreter. 
Be Built-in prettyprinting and formatting facilities. © Complete set of error handling and debugging functions including 
Z\ yser programmable processing of undefined function references. ® Virtual function definitions. ¢ Optional automatic 
loading of initialization file. © Powerful CP/M command line parsing. ® Fast sorting/merging using user defined 
comparison predicates. ® Full suite of mapping functions, iterators, etc. ¢ Assembly language interface. * Over 250 
functions in total. ¢ The best documentation ever produced for a micro Lisp (300+ full size pages, hundreds of 
illustrative examples). 


Waltz Lisp requires CP/M 2.2, Z80 and 48K RAM (more recommended). All common 5” 
and 8" disk formats available. 


<< Coen $169" 


written in Waltz Lisp.) 

















































































RO ODE * Manual only: $30 (refundable with order). All 

nee foreign orders: add $5 for surface mail, $20 for 
ee ee airmail. COD add $3. Apple CP/M and hard sector 
15930 SW Colony PI. formats add $15. 


Portland, OR 97224 
peree Call free 1 -800-LIP-4000 Dept. #11 


Unix’ Bell Laboratories. 
CP/M° Digital Research Corp. In Oregon and outside USA call 1-503-684-3000 




















Circle no. 52 on reader service card. 





Re-ink any fabric ribbon for Mac Switch lets you share ¢ Music - foreground and 

less than 5¢. Extremely simple your computer with any two background 

operation. We have a MAC peripherals (serial or includes multi-tasking example 

INKER for any printer. parallel). Ideal for word e Includes Forth-79 and Forth-83 

Lubricant ink safe for dot processors—never type an e File and/or Screen interfaces 

matrix printheads. Multi- address twice. Ask us for e Segment Management Support 

colored inks, uninked brochure with tips on how to ¢ Full megabyte - programs or 

cartridges available. Ask for share two peripherals with data 

brochure. Thousands of MAC SWITCH. Total ie ian bI 

satisfied customers. satisfaction or full refund. eee ec ; 
(interactive, easy to use & learn) 

$5495 4 $9900 


e Compare 
BYTE Sieve Benchmark jan 83 
HS/FORTH 47sec BASIC 2000 sec 
w/AUTO-OPT 9sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 
HS/FORTH, complete system only: $250. 











wee Visa Mastercard ae 
Add $10. shipping and handling 


HARVARD 
SOFTWORKS 


PO BOX 339 
HARVARD, MA 01451 
(617) 456-3021 


C#imputer 
Order Toll Free 1-800-547-3303 Frends 


6415 SW Canyon Court 


_ Suite #10 
_ Portland, Oregon 97225 
: ay, ql 1q (503) 297-2321 


Circle no. 11 on reader service card. Circle no. 33 on reader service card. 














CP 4 M 2.2 (Listing Continued, text begins on page 48) 


Listing One 
E5AB C3 E178 339 Jmp SETS2B/7 ;..don't close file 
340 
Le ae 
B42 > ¢ s use space (14 bytes) for fragment from FINDNXT routine: 
343 ; 
E5AE 3A EQEA 344 PATCH1: lda FTILEPOS 
E5B1L E6@3 345 ani O3h 
E5B3 32 DF45 346 sta STATUS ;save its directory buffer index 
E5B6 21 E9D4 347 ba h,FNDSTAT 
348 ; 
349 eremark ~ 
358 The original CP/M 2.2 code removed below is erroneous, and 
351 causes BDOS Erasefile, Renamefile, Setattribute functions 
352 to return A=8 on success rather than the directory index 
353 (8,1,2 or 3) specified in the Interface Guide. 
354 
S55) gs mov a,m 
3302 ral 
35f 7254 ae be 
S53. 2% xra 
S505: 
300 
E5B9 77 361 MOV m,a yalso save it for use 
E5BA C9 362 ret ;--by Erase,Rename,Set Attribute fns 
30533 
E5BB 364 '. LASTS =. rmust be <= bdosbase+@9BCh 
S65: 4 
366° << 
367 patch ERAFILE reference to its new location 
306s 
E8DA 369 sLoe (DELF ILE+3 ) 
E8DA CD E3A9 376 CALL ERAF ILE 
RE Ble 
372 end 
+++++ Symbol Table ++4+++ 
BDOSBA DC@@ BIOSBA EAQ@ CCPBAS D4@@ CHKEXT E381 
CHKROF E144 CHKWPR E154 CKFILP E1F5 CLOSEF E9D2 
COUNTE E9D8 DELFIL E8D7 DIRWRI E1C6 ERAFL E3B1 
ERAF2 EQEE ERAF3 E9F8 ERAFIL E3A9 EXTDON E391 
EXTMAS E9C5 FCB2HL ELSE FILEPO E9EA FINDFS E318 
FINDNX E32D FNDSTA E9D4 FNXT@ E32D FNXTL §E34C 
FNXT2 E358 FNXT3 E367 GETEMP E524 GNXT@G E571 
GNXTL E588 GNXT2 E59¢ GNXT3 E57E GNXT4 E581 
GNXT5 E5A8 IOERR1 DF@5 JSETST E585 LAST] E3BE 
LAST2 E9QFE LAST3 E5BB MATCHE E39F MOREFL E1L7F 
NOMATC E3A2 NXENTR E205 NXTBYT E393 OPENIT E45A 
PATCH1 E5AE PATCH2 E9SEE PFLAG F399 QOFLAG E39A 
RDWRTF E9D3 SAMEXT E3Q7 SAVEFC E9D9 SETFIL E26B 
SETS2B E178 SETSTA DF@1 STATUS DF45 STFILP E1LFE 
STRDAT EQBB TSTEXT E38B 
End Listing One 
60 Dr. Dobb’s Journal, November 1984 


isting Two 


CP/M RMAC ASSEM 1.1 


title 'PUBLIC.ASM 4-12-84 (c) 1984 Plu*Perfect Systems’ 
PAGE 55 
7 


QQ0A = vers equ 188 


7 
-Utility to set/clear attribute bit 2 of filename. 
>For use with Plu*Perfect Systems' PUBlic-file BDOS patch. 


F ; 

susage: PUBLIC [d:] -~— lists PUBlic files (on d:) 

: PUBLIC [d:]filename.typ -- makes filename.typ PUBlic 
PUBLIC [d:]filename.typ [X] ~~ makes filename.typ private 


filename,type must be unambiguous - no wildcards 


prints drive/user number of all files of specified name, 
with attribute bits displayed as lower-case characters 


= =e =e "= O6@ SO SMO WO SN 


-if just one such file found: 
if X, clears attribute bit - making file private in orig user # 
else, sets attribute bit - making file PUBlic 


=e =e “6 “OC 


maclib z8@ 
GB0O = FALSE EQU g 
FFEF = TRUE EQU NOT FALSE 
OOO = LISTPUBBIT equ B 
0001 = MAKPUBBIT equ 1 
GB7C = fence equ ie 
GOGO = NULL equ y) 
QOG7 = BELL equ 'G'-'a' 
GOBD = CR equ 8dh 
GOGA = LF equ Gah 
Q01B = ESC equ lbh 
GB20 = SPACE EQU fk; 
GO7EF = DEL EQU 7EH 
GOCE = drivefn equ 14 
QOGF = openfn equ 45 
GB19 = closefn equ 16 
GGl1l = srchfstfn equ 17 
Q@Q12 = srchnxtfn equ 18 
8013 = deletefn equ 19 
9014 = readfn equ 20 
G@@15 = writefn equ Zi 
0016 = makefn equ 22 
QG1l7 = renamefn equ 23 
Q018 = logvecfn equ 24 
QG19 = curdskfn equ 25 
QO1A = dmafn equ 26 
GG1E = setattrfin equ 39 
OG1lF = getaddrfn equ 31 


(Continued on next page) 
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CP a M 2.2 (Listing Continued, text begins on page 48) 


Listing Two 


GB20 = userfn equ 32 
QO21 = readrfn equ 33 
G@G22 = writerfn equ 34 
9G23 = Sizefn equ 35 
’ 
GOOF = reccnt equ LS 
GO20 = currec equ 32 
GG21 = rd equ a3 
GB8O = tbuff equ 88h 
QBZ5C = fcb equ Sch 
BZEC = fcb2 equ fcbt+16 
; 
QBGO = BOOT equ BOOh 
0805 = BDOS equ G8O5h 
FFFF = ADDRESS equ QFFFFH ;filled in by loader 
GEOO = bdoslen equ BeOGh 
dobdos macro  num,arg 
1£-not nul arg 
1x1 de ,arg 
endif 
mv 1 c,num 
call < 
endm 
print macro msg 
if not nul msg 
Lip et d,msg 
endif 
call pr intde 
endm 
7 
S-MACRO 
PAGE 
aseg 
G100 org 1@@h 
’ 
$1098 C3872 top: jmp start 
; 
103 OD@A505542banner: db CR, EF, PUBLIC: v..* 
G1GE 312E30 db vers/10+'@',".', (vers mod 198)+'gQ' 
Glll 2028632920 db ' (c) 1984 Plu*Perfect Systemss' 
’ 
G12F BDGAGA5573usage: db CR,LF,LF,'Usage: ' 
G13A 5055424C49 db "PUBLIC [d:] -— list. PUBlic files: fon dz)* 
G16C BDGA282020 db CR EPS 
9176 5855424Cc49 db ‘PUBLIC [d:]file.ext -- make file PUBlic' 
G19F ODGA202020 db CR LF.’ 
G1A9 5855424Cc49 db ‘PUBLIC [d:]file.ext X -- make file private' 
Y1D3 ODGAGA24 db CREF ERS? 
’ 
G1D7 YD@AGA5468header: db CR,LF,LF,'The currently PUBlic files are:',CR,LF,'S' 


7 
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Q1FC 
9209 
$213 
G21D 


G22F 
9255 
8265 
G27D 


9287 
928B 
Q28E 
9294 
Q297 
9298 
Q29A 
929D 
Q29F 
G2Al 
Q2A3 


G2A9 
92B1 
92B6 
G2B9 
B2BC 
G2BF 
G2CU 
B2C2 
G2C3 
G2C6 
G2C7 


B2CC 
G2D4 
G2D7 
B2DC 
G2EG 
G2E1 
O2E4 
Q2E5 
J2E8 
Q2EB 
Q2ED 
G2E0 
G2F 2 
G2F4 


G2F6 
Q2F9 
Q2FB 
B2EC 
G31 
9304 
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2073657428tomsg: db 
5855424C49pubnam: db 
5052495641privnam:db 
20203D3D3Eismsg: db 
v 
QDGAG72A2Amultimsg:db 
QDGAG72A2Anonemsg :db 
QDGAB72A2Acantmsg :db 
QDGA284E6Fnopubs: db 
; 
v 
Start: sspd 
316585 1xi 
print 
215D0@ Li 
7E mov 
FE2@ cpi 
218D85 1x1 
res 
jrnz 
setb 
print 
v 
setup: dobdos 
dobdos 
329F 05 sta 
321105 sta 
3A5COG lda 
B/ ora 
rz 
3D dcr 
320F 05 sta 
5F mov 
dobdos 
r 
Savusr: dobdos 
321205 sta 
dobdos 
23232323 inx fh! 
7E MOV 
324784 sta 
AF xra 
3218005 sta 
3A6D88 lda 
FE58 col 
218D05 1x1 
res 
jxrz 
setb 
PAGE 
215COd find: 1x1 
363F mv 1 
EB xchg 
dobdos 
320E05 sta 
3C inr 


‘eet to see 6° 
‘PUBLIC. 3" 
"PRIVATE S' 

' ==> is already $' 


CR,LF,BELL,'*** Multiple copies, can''t change!$' 
CR,LF,BELL,'*** No file!$' 

CR,LF,BELL,'*** Can''t make file $' 

CR,LF,' (None.)$' 


ustack 
sp,Sstack 
banner 
h,fcbtl 

a,m 

SPACE 
h,flags 
LISTPUBBIT,m 
setup 
LISTPUBBIT,m 
header 


dmafn ,buf 
curdskfn 
drive 
udrive 
fcb 

a 

SavusrL 

a 

drive 
e,a 
drivefn, 


;set directory buffer 
;save user's drive 


scheck for specified drive 


;login specified drive 


userfn,@ffh 
uuser 
getaddrfn 
nx fh.) aK Ae 
a,m 
EXTMASK 

a 

count 
fcb2+1 

xe 

h,flags 
MAKPUBBIT,m 
find 
MAKPUBBIT,m 


ssave user # 


s;get extent mask for this drive 
inx h 


find all filename entries in all user numbers 


h,fcb 

ge smatch ALL dir entries 
srchfstfn, 

indx ssave position in buffer 
a 


(Continued on page 66) 
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C' Is The Language. 
Lifeboat UTA ie 





Lifeboat.:. 
The Leading Source And Authority For Serious Software. 
1-800-847-7078. 


In NY State: 212-860-0300 


Serious Software For The C Programmer From Lifeboat... 


Lattice® C Compiler: The serious software developer’s first choice. 


Selected for use by IBM,® Texas Instruments, Wang,* MicroPro.® Ashton-Tate, © 
IUS/Sorcim,® Microsoft® and Lotus” to name a few of the many. Why? 
Lattice C is clearly the finest 16 bit C compiler available today. 
—Renowned for speed and code quality. 
—Fully compatible with the C standards set forth by Kernighan and Ritchie. 
—Four memory model options offer you unsurpassed control and versatility. 
—Superior quality documentation. 
—Now includes automatic sensing and use of the 8087 chip. 
— Widest selection of supporting add-on packages. 


Halo™: A graphics development package rapidly emerging as the industry standard. 


—140 graphics commands including plot, line, arc, box circle and ellipse primitives, 
bar and pie charts; pattern fill and dithering commands. 
—New: multiple viewports and “stroke text” for angling, scaling and filling text. 


C Food Smorgasbord™: This beautifully written collection of C functions 1s a valuable time saver. 


—Library includes a binary coded decimal arithmetic package, level 0 I/O functions, 
a terminal independence package, IBM PC ROM BIOS access functions and much more. 


Pmate™: The premier editor for the programming professional. 


Pmate is a full screen editor with its own powerful macro command language: 
—Perform on screen row and column arithmetic, alphabetize lists, 
translate code from one language to another, call up other macros. 
—Customize Pmate almost any way you like. 
—cContains 10 auxiliary buffers for storage of macros, text, subroutines. 
—An “undo” feature allows the programmer to retrieve whole series of deleted items. 


Additional C Tools Panel™: Screen formatter and data entry aid. 
Available From Lifeboat: Lattice Windows™: Windowing utility; create “Virtual Screens.” 
Plink-86"™: The popular linker; includes extensive overlay capabilities. 
Pfix86'": Dynamic debugging utlity. 
Pfix86 Plus™: Symbolic debugger with capacity to debug overlays. 
Btrieve'": Database record access/retrieval library. 
Phact: Multikeyed ISAM C-Function library. 
Fabs: Fast access B-tree database function library. 
Autosort: Fast sort/merge utility. 
ES/P: ‘C’ program entry with automatic syntax checking and formatting. 
Greenleaf Functions’: Library of over 200 popular C functions. 
And much more. 


| YES! Please rush me the latest FREE Lifeboat: catalog of C products. 








Company Business 

Name hone 

Naaie ce OS ie De 

Address 

Cty gs ee ie ee eS eo 


Please check the category where Lifeboat can best help you: 
[_] Software development |_| Corporate [_] Education 
[| Dealer/distributor [-] Government. |_| Other 
Call Direct: 1-800-847-7078 (In NY State: 212-860-0300) 
Return coupon to: Lifeboat Associates 
1651 Third Avenue, New York, NY 10128. DD/11 


Circle no. 45 on reader service card. 








© 1984 INTFRSOFT CORPORATION 
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Listing Two 


9305 


9307 
O30A 
938C CD5304 
O30F CD7304 
9312 CD8D04 
9315 211005 
9318 34 
9319 

9321 320E05 
9324 3C 
$325 


CD1604 


9327 
Q32A 
G32C 
Q32F 
9331 B7 
9332 
$334 
G33A 


218D@5 


3A1905 


G33C 
933E 
934 
9342 
9345 
9347 
9349 
G34C 
G34E 
0351 


DOG1 


218D@5 


CD9BG3 


CDC 883 


9353 
9359 


935B 
9361 


9363 
9366 


118982 
CDOCG4 


9369 
G36C 
936E 
9370 
9376 3A11@5 
9379 5F 


218D@5 
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(Listing Continued, text begins on page 48) 


3E2 done 7no entries at all 
7 
findall:call chknxt 71s entry PUBlic or specified filename? 
jrnz findnxt 
call savefcb 7yes - save it 
call setcol 
call printentry p sd St IE 
1xi h,count ; and count it 
inr m 
findnxt:dobdos_ srchnxtfn,fcb 
sta indx 
inr a 
jrnz findall 
tf 
nomore: 1xi h,flags 
bit LISTPUBBIT,m 
lda count 
4CZ nom@ 
ora a 
jrnz done 
print  nopubs 
32 done 
7 
nom@ : sul 1 ‘ 
7EC none 
jrnz nochanges 
Let h,flags ;exactly 1 file found 
bit MAKPUBBIT ,m 
4ry noml 
call setpub 
jx done 
noml: call setpriv 
Jr done 
a 
PAGE 
nochanges : 7can't be PUBlic if > 1 match on drive 
print multimsg 
Bhs done 
tf 
none: print  nonemsg 
jr done 
a 
nopub: 1xi d,pubnam 
Gall Gant . 
;fall thru 
a 
; all done, restore drive/user and return ‘ 
a 
done: 1X1 h,flags 
bit LISTPUBBIT,m 
ATZ doneg 
print usage 
doneg: lda udrive ;relogin user's drive 
mov e,a 
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Q37A 
G37F 
9382 
9383 
9388 
G38B 
Q38F 


9390 
9393 
9395 
9397 
9399 
G39C 
G39D 
G3A2 
G3A5 
G3A7 
G3A8 
Q3AD 
Q3AE 
G3B8 
G3B6 


G3BC 
Q3BF 


G3C2 
83C5 


93C8 
Q3CB 
G3CC 
G3D1 
93D4 
G3D6 
93D8 
G3DA 
G3DD 
Q3DF 
G3EG 
G3E5 
93E6 
93E8 
Q3EE 
93F4 


G3F6 
G3F9 


O3FC 


3A1205 
oF 


CDBF@4 


ae, 


211785 


3A1585 
SF 


211585 
3690 
EB 


= 


211585 
C39094 


118982 
C3FF@3 


3A1585 
5F 


211765 


211585 
3600 
EB 


3C 


111382 
C30CO4 


111382 


dobdos drivefn, 
donel: lda uuser 
mov e,a 
dobdos userfn, 
call erir 
re Swe lspd ustack 
ret 
tf 
: set the PUBlic attribute bit 
a 
setpub: 1xi h,pubfcbt+2 stest attr bit 2 
bit 7,m 
jrnz ispub ;quit if already PUBlic 
setb 7,m sset attr bit 2 
lda pubfcb ;save user # for output 
MOV e,a *set user # of this file 
dobdos userfn, 
1x1 h,pubfcb 
mvi m,@ sput default drive into fcb 
xchg ) 
dobdos setattrfn, 
inr a 
Ize nopub 
print  tomsg 
print pubnam 
setpend: 
1x1 h,pubfcb 
jmp printentl 
7 
ispub: 1xi d,pubnam 
jmp istype 
7 
’ 
; reset the PUBlic attribute bit 
v 
setpriv: 
lda pubfcb ssave file user # 
MOV e,a *set user # of fcb 
dobdos userfn, 
i¥1 h,pubfcbt2 ;reset PUBlic attr bit 
bit 7,m 
jxrz ispriv ;quit if it's already private 
res Tai 
1xi h,pubfcb 
mvi m,@ *default drive 
xchg 
dobdos setattrfn 
inr a 
\xzZ nopriv 
print tomsg 
print privnam 
jx setpend 
7 
PAGE 
nopriv: 1xi d,privnam 
jmp cant 
f 
ispriv: 1x1 d,privnam 
; fall thru 
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CP/M 2.2 


Listing Two 


O3FF 
G408 
9406 


9407 
B49 


BAVC 
G48D 
9413 
9414 


9416 
9419 
G41A 
G41C 
Q41E 
O41F 
429 
9421 
G424 
426 


9428 
429 
G42A 
G42B 
42D 
G42E 
9431 
$432 
433 
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D5 


D1 


GEGI 
C30509 


D5 


D1 


CD6304 
TE 
FEES 


115D8¢ 


(Listing Continued, text begins on page 48) 
istype: 


; 
7 
printde: 


v 
cant: 


e ™=e “6 S868 SO 


v 
ChKNKt: 


chkn@: 


f 


e 
7 


;note* doesn't allow wild cards 


chkn1: 


chkn2: 


chkn3: 


push d 
print ismsg 
pop d 
failthru 

mvi are, 

Jmp 5 

push d 
print cantmsg 
pop d 

Ix printde 


;bdos string print function 


;print 2nd msg 


check next directory entry 

if listing PUBlic files, ret Z if PUBlic and @th extent 

if matching a filename, ret Z if same name,type and extent 
else ret NZ 


call 
MOV 
cpi 
jrnz 
ora 
ret 
inx 
lda 
bit 
jxz 


list all PUBlic files 


1nx 
mov 
cma 
anil 
rnz 
LXd 
dad 
xra 


jx 


findentry 


a,m 
QE5h 
chkng 
a 


h 
flags 


LISTPUBBIT,a 


chkn1 
h 

a,m 
88h 


d, 12-2 
d 


a 
chkn3 


sdon't match erased entries 


,set nz 


;p0int at 2nd char of filename 


;check compl of attr bit 
snot PUBlic - ret NZ 
;have a PUBlic file, 
;point at its extent byte 
zand check for extent @ 


check for match with specified filename/extent 9 


1x1 
mvi 
ldax 
sub 
anil 
inx 
inx 
rnz 
djnz 
ldax 
mov 


d,fcb+1 
b, ll 

dq 

m 

7£h 


yname & type 


;don't test attr bits 


;nz if no match 


snow check the extent 


(Continued on page 70) 
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Come to us for your state-of-the-art FORTH 
needs! Announcing the latest additions to the 
UNIFORTH family: 


16-bit Z8000, 68000, 16032 
32-bit 80186, 68000, 16032 


Obtain these stock items captured under tradi- 
tional operating systems, or try our DB16000, 
Slicer and CompuPro stand-alone versions. Com- 
plete compatibility is retained throughout the 
UNIFORTH product line (from the Commodore 64 
to the VAX). 


Features include software floating point, video 
editor, full macro assembler, debugger, decom- 
piler, top-notch documentation, etcetera. Prices 
start at $175. Call or write for our free brochure. 


Unified Software Systems 


P.O. Box 2644. New Carrollton. MD 20784. 301/552-9590 


DEC, VAX,PDP,RT-11,RSX-11 (TM) Digital Equipment Corp; CP/M (TM) 
Digital Research; MSDOS (TM) Microsoft; VIC-20 (TM) Commodore. 





Circle no. 73 on reader service card. 


| G EK... 


EPROM PROGRAMMER 


Compatible w/all Rs 232 serial interface port * Auto $879 stand 
select baud rate * With or without handshaking * 
Bidirectional Xon/Xoff and CTS/DTR supported * 
Read pin compatible ROMS * No personality 
modules * Intel, Motorola, MCS86, Hex formats * 
Split facility for 16 bit data paths * Read, program. 
formatted list commands * Interrupt riven, 
program and verify real time while 
sending data * Program single byte, 
block, or whole EPROM * Intelligent 
diagnostics discern bad and erasable 
EPROM * Verify erasure and compare 
commands * Busy light * Complete 
w/Textool zero insertion force socket 


MODEL 7956 
GANG PROGRAMMER 
Intelligent algorithm. 





and integral 120 VAC power (240 copies eight EPROMS at a 
VAC/SO0Hz available) With RS-232 option $1099. 

DR Utility Package allows communica- 

tion with 7128, 7228, and 7956 $549 

programmers from the CP/M com- MODEL 

mand line. Source Code is provided. 7316 

PGX utility package allows the same 

thing, but wil also allow you to specify 


a range of addresses to send to the 
programmer, Verify, set the Eprom 


ty pe. 


MODEL 7316 PAL PROGRAMMER 
Programs all series 20 PALS. Software 





DEVELOPMENT HARDWARE/SOFTWARE 
HIGH PERFORMANCE/ COST RATIO 


(601) 467-8048 


MODEL 7956 


Stand alone, 
time. 











SMALL} FOR IBM-PG 


Small-C Compiler Version 
2.1 for PC-DOS/MS-DOS 
Source Code included 
for Compiler & Library 
New 8086 optimizations 
RICH I/O & Standard Library 








CBUG SOURCE LEVEL DEBUGGER FOR SMALLC 


Break, Trace, and Change 
variables all on the 
source level 

Source code included 


11557 8th Ave. N.E. 
Seattle, Washington 98125 


(206) 367-1803 


ASM or MASM is required with compiler. 

Include disk size (160k/320k), and DOS version with order. 

VISA & MasterCard accepted. Include card no. & expiration date. 
Washington state residents include 7.9% sales tax. 

IBM-PC & PC-DOS are trademarks of International Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 








Circle no. 21 on reader service card. 


Model 7128-L1.L2,L2A . $239 .00 










Model 7128-24........ $329 .00 
DRS of - BRS. Sl .5 8 $ 30.00 
DR8PGX or DRSPGX ..$ 75.00 
Cross Assemblers ..... $200.00 
XASM (for MSDOS) . . .$250.00 
U/M Eraser DE-4... .s: $ 78.00 
RS252 0 ables: oo. 5 28... $ 30.00 
Oia) MdanteE ricer. $174.00 
S7SS adapter cas. oo 5 $135.00 
% 48 Family adapter.... 3% 98.00 


alone 









MODEL 7228 
“ EPROM PROGRAMMER 
» All features of Model 7128 plus 

®, Auto Select Baud . Super fast adaptive 
' programming algorithms, low profile 
aluminum enclosure. Programs 2764 
in one minute! 





$429 
MODEL 
7128 


included for compiling PAL _ source 
codes. ; 5 
Software Available for CPM, ISIS, MODEL 7128 EPROM PROGRAMMER 
3 4 Avocet Cross Assemblers are Programs and Read: 
BRSOOS MSDOS. available to handle 8748, 8751, $1195 
xB ZS, °36502; -- GOON, ‘Sete: MODEL NMOS NMOS CMOS EEPROM MPU’S 
1. TM of Digital Research Corp. Aeaiiatis” foe Py RE. ane 3324 Siok eye SaETe $913 9748 
2. TM of Intel Corp. MSDOS computers. Order by 3516 3716 3732. -—«213H 8748H 
3. TM of Tandy Corp. swept type and specify 3532 3732 C6716 X2816 8749H 
4. TM of Microsoft. cea pigs wit 2564  2732A 27C5S4 48016 8741 
Model DE-4 U/V Products MODEL 7324 PAL PROGRAMMER 68766 2764 12816A 8742H 
Post Office Box 289 hold 8, 28 pin parts. High Programs all series 20 & 24 PALS. 68764 27128 8741H 
Waveland, Mississippi 39576 quality professional construc- Operates stand alone or via RS232. 8755 27256 8751 
[601 ]-467-8048 tion. 5133 


Circle no. 


31 on reader service card. 
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Listing Two 


9445 
9447 
9446 
9448 
9449 
044A 
944B 
944C 
944D 
944 
O44F 
9450 


452 


70 


CD6394 
TE 

329504 
111585 
G12000 


C9 


3A9E95 


216595 
85 
6F 
DG 
24 
Co 


3A18985 
E603 
CABF' 04 
CD8304 
GE7C 
CDC 694 
GE20 
CDC 604 


GE20 
C3C604 


(Listing Continued, text begins on page 48) 


7 
7 
, 
SAMEXT : 


ee 
a7 


EXTMASK equ $+1 


ee 
va 


° 
7 


7 
saveftcb: 


check for same extent in A, C 


push 
push 


mvi 
cma 
mov 
mov 
ana 
mov 
pop 
ana 
sub 
ani 


pop 
ret 


call 
MOV 
sta 
1x1 
1x1 
Lair 
ret 


tf 
findentry: 


° 
v 


setcol: 


tCwoOsp: 


lda 
add 
add 
add 
add 
add 
1xi 
add 
mov 
rnc 
nr 
ret 


lda 
anil 
12 
call 
mvi 
call 
mv 1 
call 
mv i 
jmp 


7z set if same extent 
b ;7;bc not needed 
psw 


a, @8h 


b,a 
a,c 


ssave mask 
smask C 


;save inC 
snow do A 


C,a 
psw 


1Fh ;check only legal bits 9-4 


findentry 

a,m ;save the user # 
fileuserno 

d,pubfcb 

b; 32 


;find entry in buf 
;point to fcb found 
Eade ps 


indx 


He Do Oo. o @ & 


> 


count 
O3h 
Crez: 
twosp 
c,fence 
charout 
Cc,space 
charout 
c,Space 
charout 
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948D 


G499 
9491 
9495 
9494 
G496 
G499 


G49A 
949B 
949D 
G4AG 
G4A2 
G4A5 


Q4A7 
G4A8 
Q4AA 
Q4AB 
G4AD 
G4AF 
G4BO 
G4B3 
G4B4 
G4B6 


G4B7 
G4BA 
G4BC 
G4BD 


G4BF 
G4C1 
G4C4 


G4C6 
94C7 
94C8 
G4C9 
G4CA 
G4CC 
G4CF 
G4DB 
94D1 


G4D2 


G4D3 
G4D5 
Q4D7 
G4D8 
G4DA 
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CD6364 


E5 
CDB7@4 


3E00 
CDD364 
El 


23 
GOG8 
CDA7@4 
GE2E 
CDC 664 
G93 


TE 
E6/F 
BE 


F620 
4F 

CDC 604 
23 


CS 


3AQF 95 
C641 
4F 


QE@D 
CDC 694 
GEGA 


FEQA 


F5 
GE20 
CDC 604 


printentry: ;print drive/user/filename 
call findentry 
printentl: Forint at” (AL) 
push h 
call printdrv 
fileuserno equ $+l 
mvi a,@Gh 
call printuser 
pop n 
*fall thru 
printSfn: sprint filename.ext 
inx h 
mv1 b,8 
call prfn 
mvi ee: 
call charout 
mvi b,3 
*fall thru 
prfn: ;print filename char, lowercase if attr bit set 
MOV a,m 
ani 7£h ;kill attr bit when printing 
cmp m 
ape prfnl 
orl 20h ;set lower case 
prfnl: mov cal 
call charout 
inx h 
djnz prfn 
ret 
v 
printdrv: ;print drive 
lda drive 
adi ge «Ya 
MOV 0a 
jx charout 
v 
erie mvi otk 
call charout 
mv 1 c,LF 
sfall thru 
Lf 
charout: ;preserve registers 
push h 
push b 
push d 
MOV e,c 
mvi C,2 
call 5 
pop d 
pop b 
pop nh 
ret 
a 
printuser: sprint A as user # 
cpl 10 
jrne printul 
push psw ;1 space if sgl digit 
mvi Ges 
call charout 


(Continued on next page) 
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Listing Two 


94DD Fl 
Q4DE 6F 
Q4DF 2600 
Q4E1 CDE804 
Q4E4 QE3A 
G4E6 


94E8 F5 
G4E9 C5 
Q4EA D5 
G4EB E5 
Q4EC Q1FOFF 
Q4EF LIFFFF 
G4F2 G9 
G4F3 13 
94F4 DAF204 
G4F7 G1GAGD 
G4FA BY 
Q4FB EB 
G4FC 7C 
Q4FD B5 
G4FE C4E804 
@501 7B 
9502 C63G 
0504 4F 
Q585 CDC6G4 
9508 El 
9589 D1 
G50A Cl 
Q50B FL 
G58C C9 


G50D 80 
O5VE OO 
Q50F OG 
9510 BO 
9511 8B 
G512 BO 
G513 BBBO 
9515 = 
9565 = 


9505 
@515 
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(Listing Continued, text begins on page 48) 


. Pop 
printul:mov 


mvi 
call 
mvi 
ees 


f 

printdec: 

DECOUT: PUSH 
PUSH 
PUSH 
PUSH 
LXI 
LXI 

DECOU2: DAD 
INX 
JC 
LXI 
DAD 
XCHG 
MOV 
ORA 
CNZ 
MOV 
ADI 
mov 
call 
POP 
POP 
POP 
POP 
RET 


a 

flags: db 
indx: db 
drive: db 
count: db 
udrive: db 
uuser: db 
ustack: dw 


psw 

Ca 

h,@ 
printdec 
ears 


charout 


PSW ;prints hl in decimal 


B 

D 

H 
B,-10 
D,-1l 

B 

D 
DECOU2 
B,10 

B 


A,H 
i 
DECOUT 
A,E 

'g! 

cA 
charout 
H 

D 

B 

PSW 


srecursive 


suser's drive 


QVWVQe.eQeQ 


stack equ pubfcb +32 + 48 


pubfcb equ S$ 
buf equ 
END 


stack 


End Listings 
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Resources for the 
C Programmer 
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“This guide to C language resources lists 
the books available on the language, the 
articles written concerning C, the 
producers of C compilers and software, 
and even an abridged guide to public 
domain C software.” 
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Furniture: Chippendale 
Automobiles: ’57 Chevy 
Authors: Cain, Hendrix, and Ream 


“trivia” games. If we imagined the above three an- 

swers to be part of a trivia game, we could probably 
reconstruct the question of interest. Obviously, ‘““Chippen- 
dale” and **’57 Chevy” refer to classic items of furniture and 
automobiles, respectively. But who or what are Cain, Hen- 
drix, and Ream, and where do they fit in? 

Faithful readers of Dr. Dobb’s will recognize the names 
and perhaps come to the correct conclusion that they are 
“classic” authors of public domain and other significant C 
programs. Namely, they are the authors of a Small-C com- 
piler (Cain), an improved Small-C compiler (Hendrix), and 
two full-screen text editors (Ream). 

To many, though, the names of Cain, Hendrix, and Ream 
are a mystery. This article is a guide to such C language 
resources. It lists books available on the language, articles 
written concerning C, software producers of C compilers, and 
even an abridged guide to public domain C software. 

Prior to compiling this guide, I wrote an article for Byte 
magazine (August 1983) that annotated 100 C articles and 
books. In the interim, this list has grown to over 200 article 
citations. The information presented below is available in 
expanded form in my forthcoming book Applied Program- 
ming Techniques in C to be published by Scott, Foresman 
and Company at the end of 1984. The information is current 
as of September 1984. 


Ton current rage among the game-playing public is 


The Classics 

Our first section of material deals with what might be called 
the classics of C programming. Just as a real programmer can 
write a Fortran program in any language, all true C program- 
mers should be familiar with these classics. 

On the book front, Kernighan and Ritchie’s book The C 
Programming Language (Prentice-Hall, 1978) stands at the 
pinnacle, defining the very language. Equally classic is The 
C Puzzle Book by Alan C. Feuer. While not a guide to the 
language, Feuer’s book nevertheless provides a novel ap- 
proach to language understanding. Feuer presents segments 
of C code (some elegant, some atrocious) and asks “‘what 
does it do?” In the process of untangling his puzzles, one 
learns the C language. For the advanced programmer there 
are two books of applied techniques: my book from Scott, 
Foresman and the book by Purdum, Leslie, and Stegemoller. 

On the program front are several articles that should be 
read by all C programmers. The work by Cain created the 
concept of Small-C. Hendrix has expanded the Small-C com- 
piler and brought it up to date in his work. Finally, Ed Ream 





Terry A. Ward, Academic Computing Services, University 
of Northern Iowa, Cedar Falls, IA 50614. 


Portions of this material are excerpted from Applied Pro- 
gramming Techniques in C by Terry A. Ward, published by 
Scott, Foresman and Company, © 1984, 1900 East Lake 
Avenue, Glenview, IL 60025. 
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has created not one but two excellent screen editors for the C 
programmer. These prime examples of C software all first 
appeared in the pages of Dr. Dobb’s Journal. 


Books 

The books listed below are all valuable to the C programmer. 
The works by Plum concerning standards and the Bell Labo- 
ratory materials are perhaps the most specialized. With the 
increasing popularity of C, the majority of these books are 
available in the mass-market bookstores that carry comput- 
er-related books and magazines. Those noted by an asterisk 
(*) are perhaps best suited for the neophyte C programmer. 


Bell Laboratories. Unix Programmer’s Manual. 2 volumes. 
New York: Holt, Rinehart and Winston, 1983. 

*Chirlian, Paul M. /ntroduction to C. Beaverton, OR: Ma- 
trix Publishers, Inc., 1984. 

Feuer, Alan R. The C Puzzle Book. Englewood Cliffs, NJ: 
Prentice-Hall, 1982. 

*Hancock, Les, and Morris Krieger. The C Primer. New 
York: Byte/McGraw-Hill, 1982. 

Kernighan, Brian W., and Dennis M. Ritchie. The C Pro- 
gramming Language. Englewood Cliffs, NJ: Prentice- 
Hall, 1978. 

*Kochan, Stephen G. Programming in C. Rochelle Park, 
NJ: Hayden Book Company, 1983. 

Plum, Thomas. C Programming Standards and Guidelines: 
Version U (UNIX and Offspring). Cardiff, NJ: Plum Hall, 
1982. 

Plum, Thomas. C Programming Standards and Guidelines: 
Version W (Whitesmith Version). Cardiff, NJ: Plum 
Hall, 1982. 

Plum, Thomas. Learning to Program in C. Cardiff, NJ: 
Plum Hall, 1983. 

Purdum, Jack. C Programming Guide. Indianapolis, IN: 
Que Corporation, 1983. 

Purdum, J., T. Leslie, and A. Stegemoller. C Programmer's 
Library. Indianapolis, IN: Que Corporation, 1983. 

*Traister, Robert J. Programming in C for the Microcom- 
puter User. Englewood Cliffs, NJ: Prentice-Hall, 1984. 

Zahn, C. T. C Notes: A Guide to the C Programming Lan- 
guage. New York: Yourdon Press, 1979. 


Periodicals /Newsletters 

The major periodical sources for C materials are Dr. Dobb’s 
Journal and The C Users’ Group newsletter publication. 
Readers of Dr. Dobb’s are aware that the software in C that 
has appeared in these pages ranges from C compilers to so- 
phisticated full-screen text editors. The latter group is a 
source of an informative newsletter and over 15 megabytes 
of C source code (as of June 1984). 


The C Letter. Whitesmith’s, Ltd., 97 Lowell Road, Concord, 
MA 01742. 

C Users’ Group. C Users’ Group, 415 E. Euclid, McPherson, 
KS 67460. 

Dr. Dobb’s Journal. M & T Publishing, 2464 Embarcadero 
Way, Palo Alto, CA 94303. 

Microsystems. Ziff Davis Publishing Company, One Park 
Ave., New York, NY 10016. 
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Unique. InfoPro Systems, P. O. Box 33, East Hanover, NJ 
07936. 

Unir Project. Unir Corporation, 5987 E. 71st, Suite 106, 
Indianapolis, IN 46220. 

Unix Review. 2711 76th Avenue, Southeast, Mercer Island, 
WA 98040. 

UNIX/World. Tech Valley Publishing, 289 S. San Antonio 
Road, Los Altos, CA 94022. 

USENIX Assoc. P. O. Box 7, El Cerrito, CA 94530. 

/usr/ Group. 4655 Old Ironside Dr., Santa Clara, CA 95054. 

World Unix & C. P. O. Box 5314, Mt. Carmel, CT 06518. 


C Compilers 

The list below categorizes the available C compilers for mi- 
crocomputers as of September 1984. The addresses for the 
companies listed are presented alphabetically at the end of 
this section: 


CP/M compilers 

Alcor Systems 

Alpha Omega Computer Systems 
BD Software 

Carousel Microtools 

The Code Works 

Ecosoft 

Elfin Systems 

ISE-USA 

J. E. Hendrix 

Kadak Products Limited 
Knowology 

LSI Japan Co. Ltd. 
Manx Software 

New Generation Systems 
Software Toolworks 
Supersoft 

Telecon Systems 
Western Wares 
Whitesmith’s 


Tandy TRSDOS compilers 
Alcor 
ISE-USA 


IBM PCDOS/ MSDOS/ CP/M-86 
Carousel Microtools 
Computer Innovations 
Control-C Software 
Coriolis Company 
c-Systems 

C Ware 

Datalight 

Digital Research 
Ecosoft 

LanTech Systems 
Lifeboat Associates 
Manx Software 

Mark Williams Co. 
Microsoft Corp. 
Software Kinetics, Ltd. 
Supersoft 
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Telecon 
Unisource Corporation 
Whitesmith’s 


Apple DOS 
Manx Software 


Unix-like Software Tools 
Carousel Microtools 

J. E. Hendrix 

Knowology 

Lifeboat Associates 
Mark Williams Co. 

New Generation Systems 
Whitesmith’s 


Compiler Addresses 

Alcor Systems, 800 W. Garland Avenue, Suite 204, Gar- 
land, TX 75040. 

Alpha Omega Computer Systems, P. O. Box U, Corvallis, 
OR 97339. 

BD Software, P. O. Box 2368, Cambridge, MA 02238. 

Carousel Microtools, 609 Kearney Street, El Cerrito, CA 
94530. 

The Code Works, 5266 Hollister, Suite 224, Santa Barbara, 
CA 93111. 

Computer Innovations, 980 Shrewsbury Avenue, Suite 
J504, Tinton Falls, NJ 07724. 

Control-C Software, 6441 S.W. Canyon Court, Portland,OR 
97221. 

The Coriolis Company, P. O. Box 76, Clinton Corners, NY 
12514. 

c-Systems, P. O. Box 3253, Fullerton, CA 92634. 

C Ware, P. O. Box 710097, San Jose, CA 95171. 

Datalight, 11557 8th Avenue NE, Seattle, WA 98125. 

Digital Research, P. O. Box 579, Pacific Grove, CA 93950. 

Ecosoft, 6413 N. College Avenue, Indianapolis, IN 46220. 

Elfin Systems, 265 Nogal Drive, Santa Barbara, CA 93110. 

InfoSoft, 25 Sylvian Road, South Westport, CT 06880. 

Introl Corp., 647 W. Virginia Street, Milwaukee, WI 53204. 

ISE-USA, 85 W. Algonquin Road, Suite 400, Arlington 
Heights, IL 60005. 

J. E. Hendrix, Box 8378, University, MS 38677-8378. 

Kadak Products Ltd., 206-1847 W. Broadway Avenue, Van- 
couver, B.C., Canada V6J 1Y5. 

Knowology, P. O. Box 283, Wilsonville, OR 97070. 

LanTech Systems, 9635 Wendell Road, Dallas, TX 75243. 

Lifeboat Associates, 1651 Third Avenue, New York, NY 
10028. 

LSI Japan Co. Ltd., 2-24-9 Yoyogi, Shibuya-Ku, Tokyo 
(151), Japan. 

Manx Software, Box 55, Shrewsbury, NJ 07701. 

Mark Williams Co., 1430 W. Wrightwood Avenue, Chica- 
go, IL 60614. 

Microsoft Corp., 10700 Northrup Way, Bellevue, WA 
98004. 

New Generation Systems, 1800 Michael Faraday Drive, 
Suite 206, Reston, VA 22090. 


Programmer’s Shop, 128-M Rockland Street, Hanover, MA 
02339. 
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Software Kinetics, Ltd., 3 Amberwood Crescent, Nepean, 
Ontario K2E 7L1, Canada. 

Software Toolworks, 15233 Ventura Blvd., Suite 1118, 
Sherman Oaks, CA 91403. 

Supersoft, P. O. Box 1628, Champaign, IL 61820. 

Telecon Systems, 1155 Meridian Avenue, Suite 218, San 
Jose, CA 95125. 

tiny-C Associates, P. O. Box 269, Holmdel, NJ 07733. 

Unipress Software, 2025 Lincoln Highway, Suite 312, Edi- 
son, NJ 08817. 

Unisource Software, 71 Bent Street, Cambridge, MA 
02141. 

Vandata, 17544 Midvale Avenue North, Suite 107, Seattle, 
WA 98133. 

Western Wares, Box C, Norwood, CO 81423. 

Whitesmith’s Ltd., 97 Lowell Road, Concord, MA 01742. 


C Software 

The firms listed below are the major resources for public 
domain (or relatively inexpensive non-public-domain) C 
programs and utilities that include source code. 


Algorithmic Technology, Inc., P. O. Box 278, Exton, PA 
19341-0278. 

Blaise Computing, 2034 Blake Street, Berkeley, CA 94704. 

C Source, 12801 Frost Road, Kansas City, MO 64138. 

C Users’ Group, 415 E. Euclid, McPherson, KS 67460. 

Dedicated Micro Systems, 112 N. Main, Box 287, Yates 
Center, KS 66783. 

Dr. Dobb’s Journal, M & T Publishing, Inc., 2464 Embar- 
cadero Way, Palo Alto, CA 94303. 

Greenleaf Software, 2101 Hickory Road, Carrollton, TX 
75006. 

J. E. Hendrix, Box 8378, University, MS 38677-8378. 

JMI Software Consultants, 1422 Easton Road, Roslyn, PA 
19001. 

Programmer's Shop, 128-M Rockland Street, Hanover, MA 
02339. 

Que Corporation, 7960 Castleway Drive, Indianapolis, IN 
46250. 

Ed Ream, 1850 Summit Avenue, Madison, WI 53705. 

Software Toolworks, 15233 Ventura Blvd., Suite 1118, 
Sherman Oaks, CA 91403. 

XOR Corporation, 5421 Opportunity Court, Minnetonka, 
MN 55343. 

Western Wares Software, Box C, Norwood, CO 81423. 


C Articles 

Listed below are articles and other items from periodicals 
that relate to C programming, software tools, and utilities 
written in C. The index provides a quick guide to the basic 
topics that may be found within the articles. 


001 Allison, Dennis. “A Monthly Algorithm Column.” Dr. 
Dobb’s Journal, 44: 44 — 45 (January 1980). 

002 Allison, Dennis. “A Monthly Algorithm Column.” Dr. 
Dobb’s Journal, 46: 47 — 48 (June/July 1980), 

003 Allison, Dennis. “A Monthly Algorithm Column.” Dr 
Dobb’s Journal, 48: 44 — 45 (September 1980). 

004 Anderson, Bruce. “Type Syntax in the Language C: An 
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Object Lesson in Syntactic Innovation.” ACM SIGPLAN 
Notices, 15(3): 21 — 27 (March 1980). 

005 Anderson, Gordon E., and Kenneth C. Shumate. “Se- 
lecting a Programming Language, Compiler and Sup- 
port Environment: Method and Example.” IEEE Com- 
puter, 29 — 36 (August 1982). 

006 Anonymous. “Review of the C Programming Language 
(Kernighan & Ritchie).”’ Computer Languages, 4: 
199 — 200 (1979). 

007 Anonymous. “Bell Labs’ 32 Bit C/UNIX Micro.” Pipes 
and Filters, 1(1): 4 (June 1981). 

008 Anonymous. “The C Programming Language.” Mini- 
Micro Software, 6: n.p. (1981). 

009 Ashcraft, Steven E. “Ultra Low Level Programming Us- 
ing a High Level Language.” In Microcomputer Re- 
search and Applications: Proceedings of the First Con- 
ference of the HP/1000 International Users Group, 
Helen K. Brown, ed., 168 — 184 (Elmsford, NY: Perga- 
mon, 1981). 

010 Azlin, Lawrence A. “A DEBUG Subroutine: A Tech- 
nique for Making Program Debugging Simpler.” Mi- 
crosystems, 100 (December 1983). 

O11 Bailes, P. A. C. “A Co-routine Package for C.” Austra- 
lian Computer Science Communications, 1(4): 
306 — 309 (December 1979). 

012 Bailey, Kirk. “Small-C: Bug-Fix Bug.” Dr. Dobb's 
Journal, 57: 4 (July 1981). 

013 Bairstow, Jeffrey. “Getting Started with a New Lan- 
guage.” Personal Computing, 7(12): 250 (December 
1983). 

014 Baker, Leslie, and Nat Sakowski. ““New Improved Lat- 
tice C.”” PC Magazine, 138 — 141 (March 20, 1984). 
015 Baker, Leslie, and Nat Sakowski. “Getting Your C- 
Legs.’ PC Magazine, 118 — 123 (March 20, 1984). 

016 Barach, David R., and David H. Taenzer. “A Tech- 
nique for Finding Storage Allocation Errors in C Lan- 
guage Programs.’ ACM SIGPLAN Notices, 17(5): 
16 — 23 (May 1982). 

017 Barach, David R., and David H. Taenzer. “A Tech- 
nique for Finding Storage Allocation Errors in C Lan- 
guage Programs.” ACM SIGPLAN Notices, 17(7): 
32 — 38 (July 1982). 

018 Barry, Steve, and Randy Jacobsen. “The TRS-80 Mod- 
el 16B with Xenix.” Byte, 288 — 320 (January 1984). 

019 Bates, Dan. “I Can C Forever.” Dr. Dobb’s Journal, 67: 
6 —7 (May 1982). 

020 Berenbaum, Alan D., Michael W. Condry, and Priscilla 
M. Lu. “The Operating System and Language Support 
Features of the BELLMAC-32 Microprocessor.” ACM 
SIGPLAN Notices, 17(4): 30 — 38 (April 1982). 

021 Bergmann, Ernest E. “PISTOL: A Forth-like Portably 
Implemented STack Oriented Language.” Dr. Dobb's 
Journal, 76: 12 — 15 (February 1983). 

022 Birman, H. K., L. N. Rolnitzky, and J. R. Biggee. “A 
Shape Oriented System for Holter ECG Analysis.” In 
Computers in Cardiology (1978). 

023 Black, Rodney. “Oh Say, Can I C!” Dr. Dobb’s Jour- 
nal, 61: 4, 51 (November 1981). 

024 Bolstad, Terje. “CP/M BDOS and BIOS Calls for C.” 
Dr. Dobb’s Journal, 80: 22 — 27 (June 1983). 
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025 Bolton, Bill. “Some Useful C Time Functions.” Dr. 
Dobb’s Journal, 6(8): 16 — 21 (August 1981). 

026 Bourne, Stephen J. “The Unix Shell.” Byte, 187 — 204 
(October 1983). 

027 Boyd, Stowe. “Modular C.” ACM SIGPLAN Notices, 
18(4): 48 — 54 (April 1983). 

028 Brooker, R. A. “A Database Subsystem for BCPL.” 
Computer Journal, 25(4): 448 — 464. 

029 Budd, Timothy C. “An Implementation of Generators 
in C.” Computer Languages, 7: 68 — 87 (1982). 

030 Burkowski, F J.. W. FE Mackey, and M. H. Hamza. 
‘““Micro-C: A Universal High Level Language for Mi- 
crocomputers.” Proceedings of the IEEE International 
Symposium on Mini and Micro Computers (Canada / 
USA, 1977/1978). 

031 Byte (August 1983). The C Language (topical lan- 
guage issue). 

032 Cain, Ron. “A Small-C Compiler for the 8080's.” Dr. 
Dobb’s Journal, 45: 5 — 46 (May 1980). 

033 Cain, Ron. “Runtime Library for the Small-C Compil- 
er.” Dr. Dobb’s Journal, 48: 4 — 15 (September 1980). 

034 Cain, Ron. “High Praise for Small C.” Dr. Dobb’s 
Journal, 76: 10 (February 1983). 

035 Calhoun, Herb. “Malpractice?” Dr. Dobb’s Journal, 
60: 4-5 (October 1981). 

036 Cameron, A.G.W. “The Software Tools Computing En- 
vironment.” Microsystems, 58 — 63 (September 1983). 

037 Cameron, A.G.W. “The Ratfor Preprocessing Lan- 
guage.” Microsystems, 52 —56 (September 1983). 

038 Cann, Peter. “C Source-Code Formatting.” Byte, 18 
(December 1983). 

039 Cherry, Lorinda L., and Nina H. Macdonald. “The Unix 
Writer’s Workbench Software.” Byte (October 1983). 

040 Christensen, Ward. “The CP/M Users Group Volume 
48: Catalogue & Abstracts.” Lifelines, 1(10): 15-16 
(March 1981). 

041 Christensen, Ward. “Full Screen Program Editors for 
CP/M-80: MINCE.” Lifelines, 2(11): 7-11 (April 
1982). 

042 Christensen, Ward. ‘Full Screen Program Editors for 
CP/M-80: Ed Ream’s Editor in C.” Lifelines, 3(5): 
43 — 45 (October 1982). 

043 Christensen, Ward. ““MINCE Revisited.” Lifelines, 
3(5): 45 (October 1982). 

044 Clapp, Douglas. “‘Microsoft C Unveiled.”” PC Maga- 
zine, 503 — 508 (October 1983). 

045 Clark, David D. ‘““Lmodem: A Small Remote-Commu- 
nication Program.” Byte, 410 — 428 (November 1983). 

046 Colley, William C. “6800 and 1802 Cross-Assemblers 
for CP/M.” Dr. Dobb’s Journal, 50: 38 — 39 (December 
1980). 

047 Colstad, Ken. “A High-Level Language for Easy X.25 
Updates.” Data Communications, 65-77 (September 
1981). 

048 Colvin, James L. ‘“Small-C Compiler.” Dr. Dobb's 
Journal, 52: 7, 37 (February 1981). 

049 Cortesi, D. E. “Dr. Dobb’s Clinic.” Dr. Dobb’s Journal, 
11 —19 (November 1983). 

050 Cotton, G. ‘A Master Disk Directory.” Interface Age, 
6(11): 104 — 105, 162 — 167 (November 1981). 
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O51 Currie, Edward H. ‘‘Form over Substance...” Life- 
lines (April 1983). 

052 Daneliuk, Tim. “LC: A C Compiler for LDOS-Based 
Machines.” InfoWorld, 5(25): 53 — 54. 

053 Darwin, Ian F. ‘‘The Unix File.’ Microsystems, 
24 — 27 (September 1983). 

054 Datapro. “An Introduction to the ‘C’ Language.” In 
Applications Software Directory (Delran, NJ: Datapro 
Research, 1980). 

O55 Dessey, Raymond, ed. “Languages for the Laboratory, 
Part I.” Analytical Chemistry, 55(6): 650A — 662A 
(May 1983). 

056 Dessey, Raymond, ed. “Languages for the Laboratory, 
Part II.” Analytical Chemistry, 55(7): 754A —764A 
(June 1983). 

057 Dietz, Paul F. “Don’t Knock C.” Byte, 576 — 557 (No- 
vember 1983). 

058 Ditzel, David R., and H. R. McLellan. “Register Allo- 
cation for Free: The C Machine Stack Cache.” ACM 
SIGPLAN Notices, 17(4): 48 — 55 (April 1982). 

059 Dobyns, Barry A. “MINCE: Not Just Another Editor.” 
Dr. Dobb’s Journal, 6(4): 48 — 52 (April 1981). 

060 Dobyns, Barry A. ““Mincemeat and Minced Words.” 
Dr. Dobb’s Journal, 56: 4 (June 1981). 

061 Duncan, Ray. “Tiny-C Interpreter on CDOS.” Dr. 
Dobb’s Journal, 35: 37 — 39 (September 1979). 

062 Elliott, Comal. “A Very General Problem-Oriented 
CAI System.” Behavior Research Methods and Instru- 
mentation, 14(2): 165 — 169 (April 1982). 

063 Emerson, Sandra L. ‘“‘Usenet: A Bulletin Board for 
Unix Users.” Byte, 219 — 236 (October 1983). 

064 Favitta, Michael. ““Unica and XM-80.” Dr. Dobb’s 
Journal, 78: 83 — 85 (April 1983). 

065 Feuer, Alan R., and Narain H. Gehani. “A Comparison 
of the Programming Languages C and Pascal.” ACM 
Computing Surveys, 14(1): 73 —92 (March 1982). 

066 Fiedler, David. ““The BDS C Compiler.” In Program- 
mer’s Guide to CP/M, Sol Libes, ed. (Morris Plains, NJ: 
Creative Computing Press, 1982). 

067 Fiedler, David. “Unix Facilities on CP/M: Microshell.” 
Microsystems, 51 — 53 (January 1983). 

068 Fiedler, David. ““The Unix Tutorial. Part 1: An Intro- 
duction to Features and Facilities.” Byte, 186 —219 
(August 1983). 

069 Fiedler, David. ““The Unix Tutorial. Part 2 : Unix as an 
Applications-Programs Base.” Byte, 257-278 (Sep- 
tember 1983). 

070 Fiedler, David. “The Supersoft C Compiler.” Micro- 
systems (September 1983). 

071 Fiedler, David. ‘““The Unix Tutorial. Part 3: Unix in the 
Microcomputer Marketplace.” Byte (October 1983). 

Q72 Fishman, Harvey. “Janus— A New Ada Compiler for 
Z80 Systems.” Microsystems, (6): 70-81 (November / 
December 1982). 

073 Fitzhorn, Patrick A., and Geatold R. Johnson. “C: To- 
ward a Concise Syntactic Definition.” ACM SIGPLAN 
Notices, 16(12): 14-21 (December 1981). 

074 Fitzhorn, Patrick A., and Geatold R. Johnson. “C: To- 
ward a Concise Syntactic Definition: Appendix.” ACM 
SIGPLAN Notices, 17(8): 89 —95 (August 1982). 
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075 Foulk, Richard. ‘Standard Deviation.” Dr. Dobb’s 
Journal, 77: 11, 90 (March 1983). 

076 Garrett, Roger C. “Structured English for the C Pro- 
grammer.” Interface Age, 6(10): 30-34 (October 
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Public Domain C Software 

At the present time a significant amount of public domain 
software has been written in the C language. Presented be- 
low is a brief synopsis of what is currently available. Each 
disk is a standard 8-inch CP/M disk or approximately 256K 
of software. Further information concerning ordering, media 
charges, contents, and so on can be obtained from the ad- 
dresses preceding the diskette descriptions. 


C Users’ Group 

415 E. Euclid, McPherson, KS 67460, (316) 241-1065. 
Also available from Elliam Associates, 24000 Bessemer 
Street, Woodland Hills, CA 91367, (818) 348-4278. 

The C Users’ Group provides some of the classic materials 
in C. The editor (ED2) by Ed Ream is available in both 
Small-C and BDS C versions. The Small-C compiler is also 
available. 

Five utility diskettes (Utilities I through V) provide pro- 
grams for text compression, concordances, keyword-in-con- 
text concordance, disk editor (direct disk patcher), WP 
(ROFF-type) text formatter, NRO (enhanced ROFF-type) 
text formatter, several disk doctoring and patching pro- 
grams, programs for data compaction and expansion, 
XSDIR (extended CP/M directory program), entab and de- 
tab (insert and remove tabs) programs, telecommunications 
programs, and a Unix modem system. 

A smaller triad of function diskettes (Functions I through 
III) provide programs for directed input/output facilities 
(i.e., pipelines), floating point and long integer extensions to 
BDS C, a trigonometric function library, and scope (simple 
full-screen text editor). 

The group also has available several diskettes of games 
(Games I and II and an Adventure diskette) that provide a 
needed respite from “heavy-duty” C programming. The 
games available include everything from the original 
(Crowther/Woods) Adventure to Othello, Hunt the Wum- 
pus, etc. 

For a much more specialized and smaller clientele, cross- 
assemblers are available for the 6809 chip (the Radio Shack 
color computer), the 6800, and the 1802 microprocessor 
chips. 

An extensive set of diskettes (13 volumes) is devoted to the 
“Software Tools” of Kernighan and Plauger with the primi- 
tives translated into C. 

Language enthusiasts can find an implementation of a 
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Forth-like language on the PISTOL (Portably Implemented 
STack-Oriented Language) diskette. 


CPMUG 

The CP/M Users Group, 1651 Third Avenue, New York, 
NY 10028. 

Also available from Elliam Associates, 24000 Bessemer 
Street, Woodland Hills, CA 91367, (818) 348-4278; and 
New York Amateur Computer Club, Inc., P. O. Box 106, 
Church Street Station, New York, NY 10008. 

Three C diskettes are available from the CPMUG. One 
(volume 48) is a sampler of material in the BDS C language. 
A second (volume 53) contains the original Crowther and 
Woods Adventure game, and the last diskette (volume 85) 
contains a very sophisticated set of text compression 
programs. 


SIG/M Users Group 

available from Elliam Associates, 24000 Bessemer Street, 
Woodland Hills, CA 91367 (818) 348-4278; and New York 
Amateur Computer Club, Inc., P. O. Box 106, Church 
Street Station, New York, NY 10008. 

Three C diskettes are available from the SIG/M Users 
Group. One (volume 60) contains a very sophisticated set of 
text compression programs. A second (volume 114) contains 
an expanded version of the PISTOL diskette from the C Us- 
er’s Group, and the last diskette (volume 118) contains a C- 
based implementation of an experimental object-oriented 
language XLISP. 


Some Other Sources of C Software 
Below are listed some of the places you may find relatively 
inexpensive C software, usually including source code. 


Edward K. Ream 
1850 Summit Avenue 
Madison, WI 53705 
(608) 231-2952 

Ed Ream can supply diskettes for his enhanced RED edi- 
tor with source code for Small-C, BDS C, Aztec C, and the 
Digital Research C compilers. 


Western Wares 
Box C 
Norwood, CO 81423 
(303) 327-4898 

Western Wares provides two diskettes of C utilities in- 
cluding a disk sector editor/dumper program (VIEW dis- 
kette) and a set of file utility programs (C-PACK diskette). 


Northwest Microsystem Design 
P.O. Box 10853 
Eugene, OR 97401 
(503) 484-7129 
A full-screen editor (CSE) is available from Northwest 
Microsystem Design. 


Blaise Computing 
2034 Blake Street 
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Berkeley, CA 94704 

An extensive set of tools for the IBM PC is available from 
Blaise Computing. These tools, available in three packages 
(C Tools, C Tools II], and View Manager), include such 
things as strings, screen access, access to BIOS IBM /PC, gen- 
eral DOS interface, and screen support. 


Greenleaf Software 
2101 Hickory Drive 
Carrollton, TX 75006 
Over 200 functions for strings, graphics, etc. (IBM PC) are 
available on the Greenleaf Functions diskette. 


Que Corporation 
7960 Castleway Drive 
Indianapolis, IN 46250 

The book The C Programmer’s Library has available a 
companion diskette including such topics as recursion, 
linked lists, sorting algorithms, Huffman text compression, 
etc. 


Dedicated Micro Systems 
P.O. Box 481 
Chanute, KS 66720 
(316) 431-0018 
Two diskettes provide extended precision floating point 
extensions to BDS C. The BDS C compiler is also available. 


J. E. Hendrix 
Box 8378 
University, MS 38677-8378 


BUFFERED I/O BOARD Introductory Price * $59.95 
With despool functions, protocols supported: XON/XOFF, ETX: ETB/ACK 


Y er. 
Parallel 
Out 
Programmable 
Timer 


Y 
Serial 1/O 
110-19200 Baud 
Z80 Control 64K | 
Processor Buffer RAM 
2K Program EPROM 
Vectored $-100 Interface 
Interrupts 5 16 Bit /O Addressing 
80 CHARACTER VIDEO BOARD 


Programmable Functions 
Dynamic Buffering 
25 Lines with status, compatible with Wordstar & dBase 
8 
2716 Alternate} | Boj) Keyboard 
Out Parallel 
Port 


Character 
Gen. EPROM 


. 2716 Char. 
Sep. Composite Generator 
Sync. Video EPROM 
Z80 Control Type Ahead 
Processor Buffer 


8275 CRTC 
Reverse Video 
Highlight, Blink 


S-100 Interface 
8 Bit 1/0 
Addressing 


RAM EPROM Mapped I/O 
Simpliway Products Ca. 
?.0. Ber 60/ EE 
Hayman wien 
(312) 359-7337 
OEM dealer pricing available, $3.00 S/H, IL. Res. add 7% tax 


Includes Bareboard, Heatsink & Documentation Call or write for more information. 
| VISA 
Estates, 1L.60195 | 
dBase™ - of Ashton- Tate Corp. — Wordstar™ - of Micropro Int'l. Corp 
Circle no. 63 on reader service card. 
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Mr. Hendrix can provide diskettes for his Small-VOS op- 
erating system, for his Small-C compiler, and for a set of 
software tools written in Small-C (small-tools). 


Algorithmic Technology 
P. O. Box 278 
Exton, PA 19341-0278 
(215) 363-7028 

Algorithmic Technology publishes a massive directory 
(40+ pages) of public domain software for CP/M-80, 
PCDOS, MSDOS, BDS C, and Software Toolworks C/80. 


Diskette Conversion Firms 

Finally, due to the diversity of disk formats available, I have 
included below three firms who provide diskette format con- 
version facilities. 


Elliam Associates, 24000 Bessemer Street, Woodland Hills, 
CA 91367, (818) 348-4278. 

Fred Greeb, LogiCom, Inc., P. O. Box 27465, Lakewood, 
CO 80227, (303) 986-6651. 

Mycroft Labs, 2369 North Monroe St., Box 68, Suite B-188, 
Tallahassee, FL 32303, (904) 385-1141. 

[We understand, however, that Mycroft may be phasing out 

its conversion activities. —ED| 
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Put Dr. Dobb’s Under the Christmas Tree! 
Treat your friend (or yourself!) to 


Dr. Dobb's Journal 


BOUND 
VOLUME 7 
Every 1982 Issue Available For Your 
Personal Reference. 





Vol. 1 1976 


The material brought together in this volume chronicles the development in 
1976 of Tiny BASIC as an alternative to the “finger blistering,’ front-panel, 
machine-language programming which was then the only way to do things. 
This is always pertinent for bit crunching and byte saving, language design 
theory, home-brew computer construction and the technical history of 
personal computing. 

Topics include: Tiny BASIC, the (very) first word on CPIM, Speech Synthesis, 
Floating Point Routines, Timer Routines, Building an IMSAI, and more. 


Vol. 2 1977 


1977 found DD4J still on the forefront. These issues offer refinements of Tiny 
BASIC, plus then state-of-the-art utilities, the advent of PILOT for microcompu- 
ters and a great deal of material centering around the Intel 8080, including a 
complete operating system. Products just becoming available for reviews 
were the H-8, KIM-1, MITS BASIC, Poly Basic, and NIBL. 

Articles are about Lawrence Livermore Lab’s BASIC, Alpha-Micro, String 
Handling, Cyphers, High Speed Interaction, I/O, Tiny Pilot & Turtle Graphics, 
many utilities, and even more. 


Vol. 3 1978 


The microcomputer industry entered its adolescence in 1978. This volume 
brings together the issues which began dealing with the 6502, with mass- 
market machines and languages to match. The authors began speaking more 
in terms of technique, rather than of specific implementations; because of this, 
they were able to continue laying the groundwork industry would follow. 
These articles relate very closely to what is generally available today. 
Languages covered in depth were SAM76, Pilot, Pascal, and Lisp, in addition to 
RAM Testers, S-100 Bus Standard Proposal, Disassemblers, Editors, and much, 
much more. 


Vol. 4 1979 


This volume heralds a wider interest in telecommunications, in algorithms, 
and in faster, more powerful utilities and languages. Innovation is still present 
in every page, and more attention is paid to the best ways to use the proces- 
sors which have proven longevity—primarily the 8080/Z80, 6502, and 6800. 
The subject matter is invaluable both as a learning tool and as a frequent 
source of reference. 

Main subjects include: Programming Problems/Solutions, Pascal, Information 
Network Proposal, Floating Point Arithmetic, 8-bit to 16-bit Conversion, 
Pseudo-random Sequences, and Interfacing a Micro to a Mainframe—more 
than ever! 


Vol. 5 1980 


All the ground-breaking issues from 1980 in one volume! Systems software 
reached a new level with the advent of CP/M, chronicled herein by Gary 
Kildall and others (DDJ’s all-CP/M issue sold out within weeks of publication). 
Software portability became a topic of greater import, and DDJ published Ron 
Cain's immediately famous Small-C compiler—reprinted here in full! 
Contents include: The Evolution of CP/M, a CP/M-Flavored C Inerpreter, Ron 
Cain’s C Compiler for the 8080, Further with Tiny BASIC, a Syntax-Oriented 
Compiler Writing Language, CP/M to UCSD Pascal File Conversion, Run-time 
Library for the Small-C Compiler and, as always, even more! 


Vol. 6 1981 


1981 saw our first all-FORTH issue (now sold out), along with continuing cover- 
age of CP/M, small-C, telecommunications, and new languages. Dave Cortesi 
opened “Dr. Dobb's Clinic” in 1981, beginning one of the magazine’s most 
popular features. 

Highlights: information on PCNET, the Conference Tree, and The Electric Phone 
Book, writing your own compiler, a systems programming language, and Tiny 
BASIC for the 6809. 


Vol. 7 1982 


In 1982 we introduced several significant pieces of software, including the RED 
text editor and the Runic extensible compiler, and we continued to publish 
utility programs and useful algorithms. Two new columns, The CP/M 
Exchange and The 16-Bit Software Toolbox, were launched, and we devoted 
special issues to FORTH and telecommunications. Resident Intern Dave Cortesi 
supplied a year of “Clinic” columns while delivering his famous review of JRT 
Pascal and writing the first serious technical comparison of CP/M-86 and 
MSDOS. This was also the year we began looking forward to today’s genera- 
tion of microprocessors and operating systems, publishing software for the 
Motorola 68000 and the Zilog Z8000 as well as Unix code. And in December, 
we looked beyond, in the provocative essay, “Fifth-generation Computers.” 
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ne of the things I spend a lot 
( ): time doing is writing. I 
write manuals, a column for 


the local club newsletter, letters, work- 
sheets, and tests for my classes at night 
school. Aside from my copy of Word- 
Star, the program I use the most is my 
public domain spelling checker 
SPELLM11 by Michael C. Adler.* 

While I like to write, I am not what 
you would call a superlative speller. 
Until I got SPELLM11, I thought “nes- 
sesary” [sic] was just fine. In fact, I al- 
most added it to SPELLMII’s user 
dictionary. 

One of the chores associated with 
any spelling checker is the mainte- 
nance of the user dictionary. Because 
much of what I write is technobabble, 
the checker flags many of the words 
that I use as unrecognized. The user 
dictionary to SPELLM11 must be in al- 
phabetical order. 

Being a basically lazy person, I wrote 
the attached program (see the listing on 
page 90) to read through a document 
after spelling corrections, strip the 
speller’s flag (a leading tilde ), and add 


correct words unknown to the master 
dictionary DICT.DIC to the user dictio- 
nary SPELL.DIC. 

I used the sorting technique from 
The C Programming Language by 
Kernighan and Ritchie (Prentice-Hall, 
1978): the lowly binary tree. This is my 
favorite sorter, as it is easily imple- 
mented in C. 

The program takes the input docu- 
ment filename from the command line, 
opens it for input, and creates a tempo- 
rary file (with extension .$$$) for out- 
put. The input file is scanned for tildes, 
which flag unrecognized words. When 
a tilde is found, the word following is 
converted to upper case and added toa 
binary tree. 

As the input file is scanned, it is fed 
to the temporary file, minus the tildes, 
with any high-order bits (used in some 
editors for formatting purposes) in- 
tact. When the input file is exhausted, 
it is renamed with extension .BAK, and 
the temporary file takes the original 
input filename. 

The user dictionary SPELL.DIC is 
then opened, read in, and sorted into 


“RESORT ts a utility which maintains a user dictionary 
SPELL.DIC in alpha order.” 


Donald G. Krantz, 2845 42nd Avenue 
South, Minneapolis, MN 55406. 


* SPELLMII1 by Michael C. Adler 


(public domain) is available as Vol- 
ume 1 from Avos Blind User’s Group, 
1485 Energy Park Drive, St. Paul, 
MN 55108—$5 for 5%-inch (specify 
format) and $10 for 8-inch ss/sd CP/ 
M—or from AVOS/TCOG BBS, (612) 
646-2848, 300/1200 baud, 24 hours, 
XMODEM protocol. 


the tree. Finally, the tree, sorted into 
alphabetical order, is written back to 
the user dictionary. 

For those unfamiliar with the binary 
tree, it is important that the files be read 
in this order. If a sorted array is loaded 
into a binary tree, the tree becomes ex- 
tremely unbalanced, degenerating into a 
linear linked list; the program bogs 
down, chasing up and down the tree. For 
best results, a binary tree should have 
new nodes presented randomly. 
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The code is fairly straightforward, as 
C code goes. It is as close to Unix version 
7 compatible as I could make it without 
actually compiling it on Unix version 7 
(my VAX is in the shop). A function-by- 
function breakdown follows. 


main( ) 

main( ) is concerned mostly with 
shuffling filenames around. It’s one of 
those run-on functions; for that I apol- 
ogize. The calls to sort( ), sort2( ), and 
print( ) do all the program’s work. 
makebak( ) 

makebak( ) takes the input filespec 
from the command line and examines 
it to see if an extension 1s part of the 
filespec. If so, the extension is replaced 
by .$$$ for the temporary filespec and 
.BAK for the backup filespec. If no ex- 
tension is included in the original file- 
spec, the appropriate extensions are 
appended to the backup and tempo- 
rary filespecs. 
sort( ) 

sort( ) scans the input stream for til- 
des. When it finds one, it accumulates 
subsequent alphabetic characters into 
the array w[ ]. The words then are 
passed to treeload( ), which assembles 
the binary tree. 
sort2( ) 

sort2( ) scans the user dictionary us- 
ing basically the same tokenizing rou- 
tine as sort( ), except that it accumu- 
lates all of the words from the input 
stream, not just words flagged by til- 
des. The words again are passed to 
treeload( ). This routine is the speed 
bottleneck in the program. Because the 
user dictionary is already in order, the 
more words added to the tree from the 
input document (presumably in ran- 
dom order, which tends to start the 
tree out in a balanced condition), the 
faster this phase will run. 
treeload( ) 

This is patterned directly after Ker- 
nighan and Ritchie (K & R). (My phi- 
losophy of life is that no matter how 
many times you invent a wheel, a good 
one will still be round.) This function 
chases down the binary tree until it 
finds either a duplicate word or the end 
of the tree. Should it find the end of the 
tree, it creates a new node. 
print( ) 

print( ) writes the new user diction- 
ary back to disk. This routine illus- 
trates why I like binary trees so much: 
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you can write such elegant code. 
Again, it’s from K & R. print( ) writes 
all daughter nodes lower than a given 
node, then the node itself, and then all 
daughter nodes higher than itself. Try 
to do this in BASIC sometime. 

getcc( ) 

getcc( ) transfers one character 
from the input file to the temporary 
file and returns the same character to 
the tokenizer. Note that ints are used 
to allow ERROR to be passed back to 
the caller. If chars were used, ERROR 
(usually —1, or OxFFFF) would be 
converted to DELETE (OxFF). 

Ian Ashdown (a referee for Dr. 
Dobb’s) suggested that the use of the 
function sort2( ) is a misapplication of 
the binary tree because of the previ- 
ously noted tendency towards unbal- 
ancing the tree by adding words in or- 
der. He favors using a routine (his 
pseudocode appears in the figure be- 
low) to merge the presumably alpha- 


merge{ ) 


{ 


do 


betic word stream from the user dic- 
tionary file with an alphabetic stream 
taken from the binary tree. This meth- 
od certainly would eliminate the speed 
bottleneck noted in sort2( ), but it has 
one drawback: if the user accidentally 
gets the dictionary file out of order by 
editing it (it is, after all, an ASCII file), 
this merge routine will never again 
produce a sorted output. I opted to 
trade some speed losses for reliability. 
The program shell can be modified 
easily to do other tasks unrelated to 
spelling. For example, it would be a 
matter of adding a few lines of code to 
do word frequency counts. I have made 
a few changes to produce an index gen- 
erator. In fact, I have written a token- 
izer for a preprocessor that uses about 
half the code in this program. DD} 


(Listing begins on page 90) 
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Reso rt Listing (Text begins on page 88) 


RESORT is a utility which maintains a user dictionary SPELL.DIC 
in alpha order. This works in conjunction with the utility 
SPELLM11.COM, by Michael C. Adler, as modified for the Osborne 
User Groups. 


RESORT is Copyright (C) 1984 by Donald G. Krantz. No commercial 
use may be made of this program without permission of Author. 


Limited license is granted for non-commercial distribution of 
this program in either source or object form. 


-——_——oO— OC nr re se ee ee ee ee ee ee a ae ae ae ae eae ae ae eae ee ae ee ae eae ae ae 


#define VERSION "RESORT Version 1.1 (C) 1984 Donald G. Krantz" 
#include "stdio.h" 


stucture node is the basic data type used to describe the 
sorted array of words. 


ee sect is WN a Ba ok oes wo iene cere eee eee a x/ 
struct node { 
struct node *lower; 
struct node *higher; 
char *word; 
Le 
struct node *root; /* root is the root of the binary tree * 
FILE *inptr; /* file descriptor to input files */ 
FILE *outptr; /* file descriptor to output file */ 
main( argc, argv ) 
int argc; 
char *argv[]; 
{ 
char tempfile[ 20 ]; /* temporary text filespec */ 
char bakfile[ 20 ]; /* .BAK filespec * / 
print f(''\n\s\n", VERSION ); 
/* check command line argument */ 
if( arge != 2 ) /* one argument only... * / 
{ 
printf£('"\nERROR - Use: \nRESORT d:filename.typ\n\n"); 
exit( 1 ); 
> 


/* open input file */ 
if( (inptr = fopen( argv[{1], "r", 512 )) == NULL ) 
{ 
printf£("\nERROR - Can't open file \s\n",argv[1]); 
exit(. 4‘): 


} 
/* make .BAK and .$$$ file spec and open temps */ 
makebak( argv[ 1 ], bakfile, tempfile ); 


unlink( tempfile ); /* dump old temps */ 
if( (outptr = fopen( tempfile, "w" ) ) == NULL ) 
< 


printf( '"\nERROR - Can't open temporary file\n" ); 
exit(.f >; 


} 


/* sort input file and strip tildes, transfer to temp file */ 
root = sort( NULL ); 
/* change temp filename to original, original to .BAK */ 


fclose( inptr ); /* close input * / 
if( fclose( outptr ) == ERROR) /* close temp * / 
{ 
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printf( '\nERROR - Disk full - aborting\n" ); 
unlink( tempfile ); 


foe ok wh Gey eae 
} 
unlink( bakfile ); /* dump old .BAK 
/* rename: rename( new file spec, old file spec ) */ 
rename( bakfile, argv[l] ); /* make new .BAK 
rename( argv[1l], tempfile ); /* make new text 
if( root == NULL ) /* no new words 
exit( 0 ); /* so quit 


/* sort .DIC file into binary tree */ 
if( (inptr = fopen( "SPELL.DIC", "r" )) == NULL ) 
{ 


* / 


*/ 
*/ 
*/ 
x / 


printf( "\nERROR - Can't open dictionary file\n" ); 


exitC' 1: 
} 
root = sort2( root ); /* sort .DIC * / 
fclose( inptr ); /* dump .DIC * / 


/* re-write .DIC file */ 
if( (inptr = fopen( "SPELL.DIc", "w'', 512 )) == NULL ) 
{ 


printf( '"\nERROR - Can't write to dictionary file"); 


roa alae a Be 
> 
/* write sorted tree to .DIC file */ 
print( root ); 
if( fclose( inptr ) == ERROR ) 
{ 


printf£("\nERROR - Disk full - Recheck SPELL.DIC\n"); 


exit( 1 ); 


makebak() creates filespecs for a temporary file and a backup file 


to be used in filtering applications like RESORT. It's kind of 
a generic function. 


ee ns a ee ee ee * / 
makebak( orgfile, bakfile, tempfile ) 
char *orgfile, *bakfile, *tempfile; 
{ 
strcpy( tempfile, orgfile ); 
strcpy( bakfile, orgfile ); 
if( index( tempfile, '.' ) == NULL ) /*.TYP spec'ed? */ 
{ /* no * / 
streat(tempfile, ™.$$$" ); 
streat( bakfile, ".BAK" ); 
> 
else /* yes * / 
{ 
strcpy( index( tempfile, '.'), ".$$$"); 
strcpy( index( bakfile, '.'), ".BAK"); 
> 
} 
| *-------~---------------------------- +--+ - +--+ +--+ ++ 
sort() reads the input file and puts the words with leading 
tildes into the binary tree. 
icc SS RNS ee SN Bane ale OO OE IPAS meat ea eerig Mae SOOM Ep TOE EO na */ 


struct node * 

sort( p ) 
struct node *p; 

{ 
static char w[100]; 
register int 1; 
static int-:¢; 


while( TRUE ) 
{ 
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Resor t Listing (Listing Continued, text begins on page 88) 


/* find tilde * / 
while((((c = getcc( inptr )) & Ox7F) != '~') && 
(c != ERROR)) 


> 


/* accumulate subsequent word into 'w' */ 


i = 0; /* 1 = letter count in word */ 
while( (i == 0) || (isalpha( cc) ) ) 
{ 


c #:.getée(-inptr -); 
if( c == ERROR ) 
return( p ); 
c = toupper( Ox7F &c ); 
if( isalpha( c ) == FALSE ) 


break; 
wi att. f= 63 
} 
if( i==0 ) 
continue; 
wi pe es 


/* put word into binary tree */ 
p = treeload( w, p ); 


sort2() reads the .DIC file and puts the words into the binary 
trees 


sa gh liking Sls ec aif wc lier vai ipsa se no, crt nt to pet vl Se cocci * / 
struct node * 
sort2( p ) 
struct node *p; 
{ 
static char w[100]; 
register int 1; 
sCatic..ant ic: 
while( TRUE ) 
{ 
i.= 0; /* i=letter count in word */ 
/* loop for alphabetic data, skip non-alpha */ 
while((i == 0) || (isalpha( c ))) 
{ 
c = getc( inptr ); 
if( c == ERROR ) 
return( p ); 
c = toupper( Ox7F &c ); 
if( isalpha( c ) == FALSE ) 
break; 
Wi ae poe Xe; 
) 
if( i==0 ) 
continue; 
wig Ae) ae ADE 
/* put word into binary tree */ 
p = treeload( w, p ); 
) 
} 
| ®#--~ 4 es se + ++ 
treeload( w, p ) loads the tree with words, placing them in 
alphabetical order. 
rn Sak Sar ies nln A He Sn eal aR oes x / 
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struct node * 
treeload( w, p ) 
char *w; 
struct node *p; 


if( p == NULL ) 
/* we are at end of tree, need to add a node for this word */ 
{ 
if((p = alloc( sizeof( struct node ) )) == NULL) 
{ 
printf£('"\nERROR - Out of memory"); 
exit( 1 ); 
> 
if((p->word = alloc( strlen( w ) + 1 )) == NULL) 
{ 
printf("\nERROR - Out of memory"); 
eeiet 1): 
) 
p->lower = NULL; 
p--higher = NULL; 
strcpy( p->word, w ); 
return( p ); 
) 
else if( strcemp( p->word, w) > 0 ) 
/* word 'w' is lower than the word at this node, look lower */ 
p->lower = treeload( w, p->lower ); 
else if( stremp( p->word, w ) < 0 ) 
/* word 'w' is higher than the word at this node, look higher */ 
p->higher = treeload( w, p->higher ); 
/* if word 'w' is identical to the word at this node, we do */ 
/* nothing. In all cases, we return the current node pointer, */ 
return( p ); 
} 


print() writes the words in alpha order back into the .DIC 
file. 


print( p ) 
struct node *p; 
{ 
/* print all words lower than current node first */ 
if( p->lower != NULL ) 
print( p->lower ); 


/* print the word at the current node */ 
fprintf( inptr, "\s\n"', p->word ); 


/* print all words higher than the current node */ 
if( p->higher != NULL ) 
print( p->higher ); 


getcc() gets chars from the infile, and writes all but tildes 
to the outfile. This function does not disturb any high bits 
set for parity or formatting. 


getcc( fd ) 
int *fd; 
{ . 
int c; 
c = getc( fd ); 
if(((c & Ox7F) != '~') && (c != ERROR)) 
fputc( c, outptr ); 
return( c ); 


End Listing 
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SOFTWARE REVIEWS 





Windows for C, 
Version 2.00 
Company: Creative Solutions, 21 
Elm Avenue, Richford, VT 
05476 
Computer: IBM PC and MSDOS (var- 
ious C compilers) 
Price: $150.00, demo disk and 
manual: $30.00 
Circle Reader Service No. 127 
Reviewed by lan Ashdown 
We have good news: If you are running 
MSDOS on your IBM PC and program- 
ming C, you probably will be pleased 
to learn that Windows for C can offer 
you a convenient and reliable means of 
implementing windows for your text- 
handling programs. 

Windows are, of course, those rect- 
angles on a terminal’s screen that en- 
close information not directly related to 
other information shown. In essence, 
they are screens in their own right, 
showing anything from a different part 
of the same text file to the operation of 
a completely independent, concurrently 
running program. Properly implement- 
ed, they can greatly enhance the utility 
of everything from menus and help fa- 
cilities to full-screen editors, spread- 
sheets, data base managers, and multi- 
tasking operating systems. 

As such, it behooves the C program- 
mer to add windowing to his/her li- 
brary of C functions. Windows for C 
greatly eases this effort by providing 
over 30 such functions for the IBM PC 
with MSDOS. Using this software, you 
can define and manipulate windows 
for text applications, treating each 
window as a separate screen and hav- 
ing the number of screens limited only 
by the available memory. If you don’t 
need to display a particular window at 
any time, simply erase it from the 
screen. Because it is stored in memory, 
complete with current contents, it can 
be retrieved later and displayed. 

In defining a window, you can speci- 
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fy its location and size and also define 
the visual appearance of its border and 
background. These characteristics are 
not static—you can dynamically rede- 
fine them at any time during program 
operation. Windows can also be over- 
lapped, nested, cleared, and removed 
from the screen as required, all without 
affecting any other nonoverlapping 
windows. 

The contents of the windows are 
whatever textual information you want; 
Windows for C supports all of the text 
mode capabilities of the IBM mono- 
chrome and graphics display adapters. 
Video attributes such as intensity, un- 
derline, reverse, blink, and color can be 
controlled on a character-by-character 
basis. The text can be written to the 
window with or without word wrap, and 
both vertical and horizontal scrolling 
are supported. If desired, you can also 
have automatic scrolling of text in a full 
window when the cursor reaches the 
window’s border. 

Each window has its own virtual 
cursor, with the cursor position always 
kept in memory. Accessing the window 
automatically moves the real screen 
cursor to the position of the virtual cur- 
sor, and any manipulation of the 
screen cursor in the window automati- 
cally updates the position of the virtual 
cursor in memory. 

Text can come from any source— 
the terminal (or other input device) or 
a disk file. Once displayed in a win- 
dow, text can be manipulated and, if 
desired, transferred to other windows. 
No general-purpose text editing func- 
tions are provided with Windows for 
C, but source code is provided for the 
routines to read the disk files into 
memory and into a window. Using this 
basic code as an example, the well-sea- 
soned C programmer can write the in- 
terfaces necessary to link the functions 
provided by Windows for C to other 
application programs. 


Windows for C displays and manip- 
ulates text by defining every window as 
a data structure, with variables for 
window position and size, virtual cur- 
sor position, background, text margins, 
word wrap and scroll switches, and so 
on. Also included in the window struc- 
ture are pointers to the associated file 
and border structures. The file struc- 
ture contains the name of the device or 
file being accessed and pointers to the 
part of the file currently displayed in 
the window, while the border structure 
defines the characters that form the 
horizontal and vertical sides and the 
corners of the window border. 

The functions provided by Windows 
for C were written in both C and as- 
sembly language, and so far we have 
not found any bugs in them. The video 
output is fast and clean, showing no 
snow with either the graphics or mono- 
chrome display. (Some skewing is evi- 
dent when the text is scrolled sideways, 
but this is not objectionable.) The text 
is sent directly to the video display 
buffer using line-oriented assembly 
language subroutines; word wrap, at- 
tribute selection, and automatic scroll- 
ing are user selectable. 

A software package must be judged 
in large part by its documentation; ob- 
scure language, incorrectly described 
program actions, and undocumented 
features are the basis of many a pro- 
grammer’s nightmares. Happily, Win- 
dows for C is documented in well-writ- 
ten and readable English, and it 
appears to be all there. The manual we 
received consisted of 53 double-sided | 
8'4 X 1l-inch pages in a three-ring 
binder. The main topic being the win- 
dow functions, each one was clearly and 
concisely documented in the style of 
Bell Laboratories’ Unix Programmer's 
Manual, with entries for the function’s 
name, usage, operation, definition, 
what it returns, and cautionary notes. 
For a reference manual, this style of 
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writing is ideal. 

Moreover, in addition to the per- 
functory “Getting Started,” “Tutori- 
al,” and ‘“‘Advanced Capabilities” sec- 
tions, the manual has an appendix 
entitled ““Mnemonic Abbreviations.” 
This is a most welcome feature. How 
often have you gone in search of the 
meaning of an abbreviation such as 
“csr? Windows for C lists them all in 
one place (‘“‘csr” refers to the screen 
cursor). Many other software docu- 
mentation writers, take note! 

To summarize the good news, we 
liked Windows for C: it is a very nice 
software package that has obviously 
been well thought out and very cleanly 
executed. 

... and with the good news, a bit of 
the not-so-good. As previously noted, 
Windows for C was written for the 
IBM PC. It can also be used with un- 
specified ‘“‘video-compatible” comput- 
ers running MSDOS. However, since 
the manual does not say what IBM 
work-alikes are video compatible, you 
would do well to enquire before pur- 
chasing the package if you plan on us- 
ing anything other than an IBM PC. 

Most of the functions included in 
Windows for C are in object code 
form. Since each C compiler uses a dif- 
ferent library format, Creative Solu- 
tions is obliged to distribute a different 
version of Windows for C for each one. 
C compilers currently supported are 
those distributed by Lattice, Micro- 
soft, Computer Innovations (C86), 
and DeSmet. 

You might also bear in mind that 
windows are very much in demand for 
personal computer software these 
days. Considering Microsoft’s Win- 
dows, Digital Research’s windowing 
version of Concurrent CP/M, and the 
host of similar software packages soon 
to follow, we must ask whether a soft- 
ware package that provides windowing 
functions for text modes only is desir- 
able or sufficient. Mind you, these oth- 
ers are really operating system envi- 
ronments, whereas Windows for C 
enables you to develop stand-alone 
software to run under MSDOS. 

The above notwithstanding, we can 
say that Windows for C is probably a 
worthwhile investment for the serious C 
programmer. Under the terms of Cre- 
ative Solution’s program license agree- 
ment, the functions provided can be 
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linked into the programmer’s own soft- 
ware efforts and marketed without roy- 
alties or Creative Solution’s copyright 
notice. As such, Windows for C is a 
professionally oriented set of program- 
ming tools and one that we can 
recommend. 

Special thanks is extended to Robert 
Koorbatoff, free-lance programmer, 
who assisted in this review by provid- 
ing his time, expertise, and Microsoft 
C compiler. 


MYCHESS, MSDOS 
Version 1.0 
Company: The Software Tool- 
works, 15233 Ventura Bivd., 
Suite 1118, Sherman Oaks, CA 
91403 
Computer: IBM PC, PC XT, or PCjr 
Price: $34.95 
Circle Reader Service No. 129 
Reviewed by Ronald G. Parsons 
MYCHESS 1s a chess playing program 
for the IBM PC. Other versions are also 
available for CP/M. On the IBM PC 
with a graphics card, the display shows 
very attractive representations of the 
various chess pieces in high-resolution 
black and white. The system is confi- 
gurable to use medium-resolution 
graphics or an ASCII representation on 
a monochrome display, but the attrac- 
tiveness and readability are much de- 
graded. The authors claim a US. 
Chess Federation rating of 1568. 

You can set the skill level of the pro- 
gram by altering the number of half 
moves (ply depth) that the program 
looks ahead. It can play black or white, 
from the beginning or from a setup po- 
sition, or you can interrupt a game, save 
it, and resume it later. The program can 
even play itself. The moves are recorded 
on the screen (showing the last eight 
moves), or the moves can be recorded 
on a printer or listed on a file at the end 
of the game for later viewing. 

You start the game by answering a 
serious of questions regarding the 
game setup. Then the chess board is 
displayed, and “‘white” plays. The no- 
tation identifies each square by a file 
lable (column) A—H and a row label 
1 — 8; for example, the white king 
starts on El. Each move is denoted by 
a starting square and a destination; 
e.g., white king’s pawn to king four 
would be E2 — E4. Illegal moves are re- 
jected with a beep. Pawns can be pro- 








Of course, 
POWER! saves 
your Bad Disk. 


NOW! WINDOWS FOR IBM! 
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It also , 
54 other things to : 
keep your disk in line. 


EVERYTHING YOU ALWAYS WANTED 
TO DO, BUT WERE AFRAID TO TRY 


Unlike some utility programs that are a headache 
to use, POWER! is engineered to spoil you with 55 
features, simple and uniform commands, and utter 
simplicity of use. POWER! automatically alpha- 
betizes and numbers your files. You select by the 
number and never type file names again. Need to 
[COPY], [RENAME], [ERASE], or [RUN] programs? Just 
type in their menu number! POWER! also locks 
out your disk’s bad sectors [TEST] without destroy- 
ing files—a critical difference from other utilities 
that search and destroy, without informing you 
what they’ve done, leaving you to wonder why 
your programs won't run. (And POWER! still has 
90 commands to go!) 


POWER! ONE PROGRAM DOES IT ALL! 


You may own a few utility programs for your com- 
puter housekeeping, each with its own commands 
to memorize. POWER! has all the programs rolled 
into one 16K integrated package, so you do things 
you've never tried before—every day. Save sen- 
sitive data from prying eyes with [PASS] word pro- 
tect, move a block of memory [MOVE], look for data 
[SEARCH] or compare files [CHECK]. POWER! also 
makes easy work of patching, [DISPLAY/SUBSTITUTE], 
customizing software [LOAD/SAVE]. Among the 
other commands are [SIZE], [STAT] [LOG], [DUMP], 
[TYPE], [JUMP], [FILL], [SET], and the CP/M version 
lets you restore erased files—even when you don’t 
remember the filename —at a flick of the POWER! 
[RECLAIM] command. (Still 31 commands to go!) 


POWER! NOW FOR IBM’s PC-DOS 
AS WELL AS CP/M 


We first developed POWER! for CP/M two years 
ago, and a stack of testimonials from FORD to 
XEROX testify to its excellence. For IBM-PC™ 
users, special features like managing sub-direc- 
tories, [CHANGE], and a separate creation of up to 
eee esc gars on-screen [WINDOWS] have been 
added. 


MONEY-BACK GUARANTEE AND 
A 10 DAY TRIAL 


POWER! has the Seal of Approval from the Pro- 
fessional Software Programmers Association, and 
you, too, must be happy with POWER! -or your 
money back! For only $169 you can now really be in 
control of your computer. Call Computing! at (415) 
067-1634, or your local dealer. For IBM-PC or any 
CP/M machine. Please specify disk format. 


The company that earns its exclamation point. 


COMPUTING! — 


2519H Greenwich, San Francisco, CA 94123 ha 





(il 


In CA: 800-428-7824 Extension 96H 


IBM and IBM-PC are registered trademarks of 
International Business Machines Corporation. 
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moted, but only one queen of each col- 
or may exist at any time. 

The program is easy to play and 
learn. The moved piece flashes several 
times in its new position so that an eye 
blink does not cause you to miss a 
move. The move is also recorded on the 
right of the screen. I would like, how- 
ever, to see several features added to 
the program. There is no way to tell 
whether you forgot to hit the enter key 
or the computer is thinking—a visible 
cursor would be helpful. There is no 
list of pieces captured—a command to 
list the captured pieces would be help- 
ful. An on-line help feature to refresh 
your memory of the available com- 
mands also would be nice. A mouse in- 
terface would at least be cute. 

The major impression of the type of 


96 


game played by MYCHESS is one of 
attrition. In fact, the program looks at 
capture moves first, which reduces the 
number of positions it must analyze to 
determine the next move. The priori- 
ties of move generation used by MY- 
CHESS verifies this. The top four pri- 
orities of possible moves are: 
(1) Best variation from a previous 
iteration 
(2) Winning or even captures (thus 
the attrition) 

(3) Castle moves 
(4) En passant captures 

In addition, a one-ply search is fol- 
lowed by two-ply searches, and so on, 
so that if a move is forced, the best 
move of the previous iteration is avail- 
able. Also each successive iteration is 
based on the best variation predicted 


Figure 1 
MYCHESS vs Itself 


by the previous iteration. The program 
examines one extra ply before backing 
up from a best variation if the side to 
move has anything to capture. 

I noted only one bug and it was mi- 
nor. One start-up option is to list the 
best variations for a selection of moves. 
If the number of moves suggested is 
more than three or so, the suggested 
moves wrap around and cover the 
board part of the screen. 

MYCHESS is easy to use and pre- 
sents a pleasant interface to the user. 
Without a graphics board and display, 
the program is much more difficult to 
use. I would recommend it especially 
to beginning chess players. 


DD) 


MYCHESS V§ ITSELF 


2 aL C2-C4 
al -- -- 
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C Programmers: 
Program three times faster 


with Instant-C™ 


Instant-C™ js an optimizing interpreter for C that 
makes programming three or more times faster. It 
eliminates the time wasted by compilers. Many 
repetitive tasks are automated to make program- 
ming less tedious. 


MM Two seconds elapsed time from completion of 
editing to execution. 


lm Symbolic debugging; single step by statement. 


H@ Compiled execution speed; 40 times faster than 
interpreted Basic. 


@ Full-screen editor integrated with compiler; 
compile errors set cursor to trouble spot. 


@ Directly generates .EXE or .CMD files. 


@ Follows K & R—works with existing programs. 
Comprehensive standard C library with source. 


® integrated package; nothing else needed. 
M Works under PC-DOS*, MS-DOS*, CP/M-86*. 


More productivity, less frustration, better programs. 
Instant-C™ is $500. Call or write for more info. 


Rational (617) 653-6194 


P.O. Box 480 
Systems, Inc. Natick, Mass. 01760 


Trademarks: MS-DOS (Microsoft Corp.), PC-DOS (IBM), CP/M-86 (Digital Research, 
Inc.), Instant-C (Rational Systems, Inc.) 
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S-100! IBM PC/XT! 


disk drives for too long, SemiDisk 
will relieve your suffering. 


TRS*80 IT! 


If you've been “patient” with slow S-100 applications. 


OPT-TECH SORT™ 


SORT/MERGE program for IBM-PC & XT 


Now also sorts dBASE II fijes! 


Written in assembly language for high performance 
Example: 4,000 records of 128 bytes sorted to give 
key & pointer file in 30 seconds. COMPARE! 


Sort ascending or descending on up to nine fields 
Ten input files may be sorted or merged at one time 
Handles variable and fixed length records 

Supports all common data types 

Filesize limited only by your disk space 
Dynamically allocates memory and work files 
Output file can be full records, keys or pointers 

Can be run from keyboard or as a batch command 
Can be called as a subroutine to many languages 
Easy to use, includes on-line help feature 

Full documentation — sized like your PC manuals 
$99 —VISA, M/C, Check, Money Order, COD, or PO 
Quantity discounts and OEM licensing available 


To order or to receive additional information 


write or Call: 


OPT-TECH DATA PROCESSING 
P.O. Box 2167 Humble, Texas 77347 
(713) 454-7428 
Requires DOS, 64K and One Disk Drive 


ZENITH Z-100! 


surface, and a floppy, which grinds 
the disk constantly, the SemiDisk 


EPSON QX10! 


Fast-acting. 


The SemiDisk, a super-fast disk 
emulator, stores and retrieves data 
much faster than either a floppy or 
hard disk. 


Easy to apply. 


Installation is as easy as plugging 
the SemiDisk into an empty slot of 
your computer, and running the 
installation software provided. 


Regular 
and extra-strength. 


SemiDisk I is the standard model 
for S-100, SemiDisk II offers extra 
speed and flexibility for custom 


Contains gentle buffers. gives you ultra-fast, silent data 


CP/M®80 installation software 
includes SemiSpool, which buffers 
print data in the SemiDisk. This 
allows the computer to be ready for 
other uses immediately after issuing 
a print command. 


No emulator amnesia. 


The optional Battery Backup Unit 
(BBU) plugs into the SemiDisk, and 
supplies power even when the 
computer is off. A battery keeps the 
data alive during power outages of 
four hours or more. 


Stops head-aches. 


Unlike a hard disk, which can 
‘crash’ its head on the rotating disk 


Call 503-646-5510 for CBBS/NW and 503-775-4838 for CBBS/PCS, both SemiDisk-equipped computer bulletin boards 
(300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. CP/M trademark of Digital Research. 
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transfer. 


And SemiDisk’s price won't raise 
your blood pressure. 


512K 1Mbyte 
$995 $1795 
$1245 $2095 


SemiDisk I, S-100 
SemiDisk II, S-100 
SemiDisk, TRS-80 II $995 $1795 
SemiDisk, IBM PC $945 $1795 
SemiDisk, Epson QX10 $995 
SemiDisk, BBU $150 


SEMIDISK 


SemiDisk Systems, Inc. 
P.O. Box GG, 

Beaverton, Oregon 97075 
503-642-3100 









by Ray Duncan 
The IBM PC/ AT 


IBM has confounded its critics and fi- 
nally lowered the boom on “PC-com- 
patible” manufacturers by releasing its 
next generation of high-end personal 
computers. From the hardware point 
of view, the PC/AT turned out to be 
pretty much as expected. It is conser- 
vatively designed with a 80286 CPU 
running at only 6 MHz, a 20-megabyte 
hard disk, 80-track 1-megabyte floppy 
disk drives, and 512K of RAM stan- 
dard. As far as price goes, the PC/AT is 
clearly a “fighting machine’’—only 
$6000 out the door, just about the cost 
of a fully equipped and much slower 
PC/XT only a few months ago. 
Performance-wise, the PC/AT has a 
very snappy feel. A preliminary com- 
putation-bound benchmark (generat- 
ing the first 1000 primes) that I ran in 
PC/Forth yielded a time of 24.7 sec- 
onds on the “old” PC and 8.9 seconds 
on the PC/AT. This seems to verify the 
claims in the trade rags of a threefold 
speed advantage over the older ma- 
chine. Real speed freaks will want to 
plug in an 80287 numeric coprocessor 
for number crunching; this chip is still 
pretty scarce and costs about $375 
(compared to $175 for the 8087). 
Physically, the PC/AT is slightly larg- 
er and heavier than the PC/XT. The 
keyboard has been extensively reorga- 
nized. The “Enter” key is now enor- 
mous, the “Esc” and “Backslash” keys 
have been moved into the upper right 
corner, and the ““Caps Lock” key has the 
little LED indicator that everyone has 
been crying for. Most important of all, a 
keyboard lock now allows executives to 
go out to lunch, leave their PC/AT 
turned on, and not worry about anyone 
stealing their Lotus 1-2-3 worksheets. 
The degree of upward hardware 
compatibility on the PC/AT from the 
previous PC is nothing short of aston- 
ishing. The PC/AT has a dual-nature 
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16-BIT SOFTWARE TOOLBOX 


bus that will work either with the old 
expansion cards or with the new family 
of expansion options that exploit the 
16-bit wide data path. The program- 
mer’s view of the hardware-software 
interface is, for all practical purposes, 
identical to the old PC. My own com- 
pany’s PC/Forth product, which 
drives the 6845 video controller and 
video refresh buffer directly and is ex- 
tremely hardware dependent, runs on 
the PC/AT without a hitch. 

The PC/AT’s Technical Reference 
Manual is already available and con- 
tains plenty of required and/or inter- 
esting reading. Systems-level pro- 
grammers particularly will want to 
inspect the sections on the dual DMA 
controllers, the RT/CMOS RAM, and 
the keyboard controller. The 150-page 
(1) BIOS contains some instructive ex- 
amples of 80286 programming, which 
previously have been hard to come by. 
The Intel book iAPX 286 Program- 
mer’s Reference Manual is also help- 
ful here. 

The PC/AT is delivered with PCDOS 
3.0, which appears to be a sort of 
warmed-over and expanded version of 
PCDOS 2.0. Support for partitioning the 
hard disk has been improved considera- 
bly. Also, the FORMAT command has 
been idiot-proofed, making it less easy to 
accidentally format the hard disk and 
erase all your files. PCDOS 3.0 adds a 
few new DOS commands (ATTRIB and 
LABEL), a few new CONFIG file com- 
mands, some support for file sharing in a 
networking environment... nothing 
very dramatic. However, IBM clearly 
has signaled its intention to move the 
PC/AT into the international market 
with standard DOS commands to rede- 
fine the keyboard and time/date display 
formats for the major European 
languages. 

DEBUG and LINK don’t appear to 
have changed at all. A RAM-DISK 
driver is now provided as a standard 





utility. Also provided, sadly enough, is 
the same old horrible EDLIN that we 
first met in PCDOS 1.0. 

To ensure upward compatibility 
with software written for the previous 
models of IBM PC, PCDOS 3.0 runs the 
80286 in “Real Address Mode”’ rather 
than in the more advanced “Protected 
Virtual Address Mode.” In Real 
Mode, the 80286 essentially functions 
like a slightly enhanced 8086 and has 
the same l-megabyte address space. 
We can only hope that the alternative 
operating systems soon to appear for 
the PC/AT, such as Xenix, will exploit 
the sophisticated support available in 
Protected Mode for roultitasking, vir- 
tual memory, and memory protec- 
tion—thereby wringing all the avail- 
able computing power out of the 
80286. 


Periscope PC Debugger 


Brett Salter was kind enough to send 
me an advance copy of his “Periscope” 
hardware/software debugger for the 
IBM PC. This is an inexpensive, easy to 
use, and deceptively simple-looking 
program analysis tool. Periscope con- 
sists of a “‘short” board containing 16K 
of protected RAM and some additional 
logic, a cable with a pushbutton, and a 
disk containing a debugger/control 
program. Using Periscope, you can 
push the button at any time to grab 
control away from an executing pro- 
gram, after which you may search 
memory, disassemble programs, set 
breakpoints, or display memory and 
registers. 

A particularly nice feature of Peri- 
scope is the ability to set breakpoints 
on a specific iteration of a loop, an ac- 
cess to a memory location, the contents 
of a memory location, or the contents 
of a register. The program can read the 
standard symbol tables generated by 
the PCDOS Linker, allowing the user 


Dr. Dobb’s Journal, November 1984 


to set breakpoints either by name or by 
location. Dual monitors are supported 
when present, facilitating the debug- 
ging of graphics routines. 

The manual is particularly well 
done, with clear installation instruc- 
tions, a tutorial, detailed descriptions 
of all debugger commands, notes on 
debugging theory and techniques, a 
summary of all error messages, and a 
quick reference card. I continue to be 
astonished at how far the general level 
of documentation quality has risen 
since I built my first Imsai 8080 micro- 
computer. Periscope is available for 
$295 from Data Base Decisions, 14 
Bonnie Lane, Atlanta, GA 30328 
(404) 256-3860. 


Grandson of 
Floating-Point Benchmark 


I thought I was rid of the Savage Float- 
ing Point Benchmark subject forever 
after the publication of the expanded 
table of results in the August 1984 DDJ. 
However, that table only incited DDJ’s 
loyal readers to send in even more tim- 
ings. I guess Ill keep collecting for yet 
another while and publish the table 
again in early 1985. We’re still looking 
for a COBOL listing, guys! Latest im- 
pressive mainframe result: 0.016 sec- 
onds with error 5E-7, Unix Basic Com- 
piler, double precision, VM/UTS 
operating system, Amdahl 5860 CPU. 


Counting Cycles 


Bob Smith of Qualitas Inc. wrote in to 
chide me for a foolish statement I made 
in another column. I noted that, accord- 
ing to the Intel documentation, the 
sequence 


SHL BX, 1 
SHL BX, | 
SHL BX, 1 
SHL Bx, 1 


occupied 8 bytes and required 8 cycles 
to execute, while the sequence 


MOV CL,4 
SHL BX,CL 


which looks more elegant on paper, oc- 
cupied only 4 bytes but required 28 cy- 
cles. Mr. Smith comments: 

“‘The reference to instruction ti- 
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mings... prompts me to write about 
this counter-intuitive topic. It’s tempt- 
ing to rely solely upon the published 
raw instruction timings; however, the 
picture is more complicated. Additional 
effects, such as draining and refilling 
the 8088’s four-byte pre-fetch instruc- 
tion queue, can play an overriding role. 

“As it turns out, the two-instruction 
combination MOV CL,4...SHL 
BX,CL is actually faster than four SHL 
BX,1 instructions, although the raw in- 
struction timings suggest the opposite. 
The reason appears to be that, for the 
four SHL BX, 1 instructions, their small 
size (2 bytes) and short execution time 
(2 clocks) drain the queue quickly—so 
quickly, in fact, that their execution 
time plus the time spent refilling the 
queue exceeds the time for the two-in- 
struction version. 

“These timings can be measured di- 
rectly with a high-resolution software 
timer as described in our article ‘Life in 
the Fast Lane,’ PC Tech Journal, Vol. 
1, No. 7 (April 1984). Please note that 
in the article the code segments in the 
listings of Figures 4 and 5 were inadver- 
tantly switched. 


MSDOS Programming Pearl 
of the Month 


When writing applications for MSDOS 
2.0, many programmers have been dis- 
appointed in the display speeds avail- 
able through the standard MSDOS out- 
put calls and have resorted to direct 
control of the hardware for better per- 
formance. It turns out that you can ob- 
tain substantially increased display 
speeds for “well-behaved” application 
programs on many MSDOS 2.0 systems 
simply by setting the ‘“‘raw output 
mode” bit in the driver’s device infor- 
mation word. This bit tells MSDOS not 
to check for a CTRL-C from the key- 
board between each character it trans- 
fers to the output device. Listing One 
(page 100) provides the necessary code 
to set the raw output mode bit. Thanks 
to Dave Angel of Wang for this tip. 


DOS 2.0 Filters 


As a followup to August’s “Clean” fil- 
ter, this month we are printing the 
“TK” tokenizing filter contributed by 
Jim Mott of Sunnyvale, California 
(Listing Two, page 100). A detailed 





LISP 


FOR THE 
IBM PERSONAL 
COMPUTER. 


THE PREMIER LANGUAGE 


OF ARTIFICIAL 
INTELLIGENCE FOR 
YOUR IBM PC. 


M@ DATATYPES 


Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 


MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


10 SUPPORT 

Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

.OBJ File Loader 


M@ RUNS UNDER PC-DOS 1.1 or 2.0 
Pie ae ee ae 


lQLISP 


5%’’ Diskette 
and Manual. 
Manual Only : 


$175.00 
$ 30.00 


fi q Integral Quality 
P.O. Box 31970 

Seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 
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description of the operation of the fil- 
ter with examples is contained in the 
listing itself. Jim writes: 

“One warning: If you use the TK fil- 
ter after the FIND filter with too little 
space on the %PIPE#F disk, it will fail 
without any error messages. FIND 
doesn’t seem to check the number of 
bytes written compared to the number 
requested. If the disk is full, FIND just 
stops writing to its pipe. It doesn’t even 
tell you that something is wrong. 
When TK starts, the input file is only 
half there, so it doesn’t have all the 
data to work with. If anyone would like 
to get a copy of the TK program on 
disk, tell them to send along $15 to 
cover disk, postage, and handling.” DD) 

Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 197. 


16-Bit 


Listing Two 


1 6-Bit (Text begins on page 98) 
Listing One 


Selecting raw output mode for standard output under MSDOS 2.0 
disables DOS’s check for CTRL-C pending on the keyboard between 
each character transmitted to the standard output, thereby speed- 
ing up displays. 


; Select Raw Output Mode on Standard Output Handle 


. 
’ 


mov bx, 1 ; i/o control read for 

mov ax,4400h ; “device information’ 

int 21h 

mov dh,O ; set upper byte of DH = O 

or dl,20h ; set raw mode bit in DL 

mov bx,1 ; i/o control write of 

mov ax,4401h ; ‘‘device information’ 

int 21h End Listing One 
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PAGE 55,132 
TITLE TK - Token Parsing Filter 


TK --- A Simple Token Parsing Filter for DOS 2.0 


(C) Copyright 1984 by Jim Mott 

3710 Slopeview Drive 

Sunnyvale, CA. 95148 

(408) 274-2620 
All rights reserved. Permission granted to use this software for 
personal, noncommercial purposes only. 


This program is desiqned to be a filter for DOS 2.0. 
It will tokenize its input and allow subsetting and/or 
single token per line output. 


The format of the command is: 


TK {/RJx | /LIx} {/0} {i/vt | {/v/vth 
where /RJx means right justify all tokens to x positions 

/LJx means left justify all tokens to x positions 
In the above two entries x must be in [1..15] 

/0 means output one token per line 

/y means select token y for output. You may select any number, 
up to 255, of tokens to output. Repeats are allowed and you 
may change the order of the input tokens on the output line. 


: For example, to extract a list of users from a VM directory file and write 


a sorted list of them without passwords to the printer the following 
command land line would be used. 


; FIND "USER “ < DIRECT.VM | TK/LJ8/2/4/5/6/7/8/9 | SORT > PRN 


: For example, to find a list of all sub directories of the current directory 


sorted by sub directory name we could use the following command line. 
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40 
4| 
42 
43 
44 
45 
46 
47 
48 
49 
90 
51 
Qe 
93 
54 
95 
36 
Q7 
58 
99 
60 
6 
62 
63 
64 
65 
66 
67 
68 
69 
10 
11 
72 
13 
14 
15 
76 
11 
78 
79 
80 
8 
82 
83 
84 
85 
86 
87 
88 
89 
90 
9] 


4 
é 


93 
94 
95 
96 
97 
98 
99 
100 


101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 


0000 
0000 


0OCO 


0000 
0000 


00FF 


0100 
0102 
0104 


0203 

= 0001 
= 0002 
0004 
0008 
0010 
0020 
0040 
0080 


Tw | ora) ae | Se; aS 


0204 
0205 
0206 


0207 
0208 


0505 
0506 


0605 
0607 


PPT 


20 
0000 


0104 R 
FF [ 


27 


27 
2? 
03 


2? 
02FD [ 


2? 


297) 
et © @ 


0384 [ 


4A 69 6D 
4D 6F 74 
20 20 28 
30 38 29 
32 37 34 
32 36 32 


3F 


47 


30 


31 


32 


20 
14 
34 
20 
2D 
30 


; DIR | FIND "<DIR>" | TK/LJ8/1/3/4 | SORT | MORE 


, 


; For example, to generate a sorted list of all words used in a document with 
one word per line we could use the following line. 


; TK/RJ8/0 < FOOBAR.DOC | SORT | MORE 


; A note on comments and spelling. I am a very poor speller so | 
; take the view that programs can either well documented with 
; creatively spelled words or not documented with perfectly spelled words. 


; I choose the creative approach and am satisfied when the opcodes are 
; spelled correctly. 


STACK 


STACK 


DSECT 
BUFFER 


GLEN 
GBPTR 
GBUFF 


FLAG! 
FIRJ 
FILJ 
FONE 
F1SUB 
F1WORK 
FIOERR 
FIEOF 
FIQEOF 


SPACES 
TOKSIZ 
THREE 


TOKCNT 
TOKTBL 


OUTCNT 
OUTERS 


TOKPTR 
TOKENS 
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SEGMENT PARA = STACK 


08 8 DUP( ‘Jim Mott 


ENDS 


SEGMENT PARA "DATA' 
OB 255 DUP('?') 


DB t t 
OW 0 
OW GBUFF 


08 255 DUP( 'G') 


DB ? 
EQU O1H 
EQU 02H 
EQU 04H 
EQU 08H 
EQU 10H 
EQU 20H 
EQU 40H 
EQU 80H 
DB ? 
DE ? 
DB 3 
DB ? 


08 3*255 DUP('0') 


0B ? 
DB 255 DUP('1') 
OW ? 


DB 300 DUP('2') 


"STACK 
(408) 274-2620') 


;WHERE TO PUT THE DATA 


;BE SURE TO END SCAN CORRECTLY 


;LENGTH OF GBUFF 
;POINT TO START OF BUFFER 
;BUFFER USED BY BUFGET 


;OPTIONS ENABLED 
;RIGHT JUSTIFY TOKENS 
;LEFT JUSTIFY TOKENS 
;OQUTPUT ONE TOKEN PER LINE 
;SUBSTRING FUNCTION REQUESTED 
;FILL TRAILING SPACES 
;ERROR IN OPTIONS STRING 
;END OF FILE ON STANDARD INPUT DEVICE 
;QUE THE END OF FILE 


;NUMBER OF TRAILING SPACES REQUIRED 
;TOKEN SIZE IF (FIRJ OR FiLJ) 
;LENGTH OF EACH ENTRY 


;COUNT OF TOKENS IN TABLE 
; TABLE OF TOKEN POINTERS AND LENGTHS 


;NUMBER OF SUBSETTING ENTRIES IN OUTERS 
;LIST OF TOKEN NUMBERS TO OUTPUT 


;POINTER TO FREE TOKEN SPACE 
;STRING SPACE OF TOKENS 


(Continued on next page) 
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1 6-Bit (Listing Continued, text begins on page 98) 
Listing Two 


114 

115 ; 

116 0986 54 48 3A 20 49 6E MSGVER ODE 'TK: 

117 63 6F 72 72 65 63 

118 74 20 44 4F 53 20 

119 76 65 72 73 69 6F 

120 BE 2E 20 20 4D 75 

12] 73 74 20 62 65 20 

122 61 74 20 6C 65 61 

123 13 74 20 32 2E 30 

124 30 2€ 

125 09BD OD OA 24 DB ODH,OAH, '$' 
126 09C0 54 48 3A 20 49 6E OPTMSG DB TK: 

127 63 6F 72 72 65 63 

128 74 20 70 61 72 61 

129 60 65 74 65 72 73 

130 20 67 69 76 65 6E 

131 2E 

132 OSDF OD OA DB 0DH, OAH 
133 = 0021 OPTMGL EQU $-OPTMSG 
134 OSE1 54 48 3A 20 4E 6F NOROOM DB 

135 20 72 6F 6F 6D 20 

136 66 6F 72 20 75 73 

137 65 72 20 6F 6E 20 

138 64 65 76 69 63 65 

139 2E 

140 OA0O OD OA DB ODH,OAH 
141 = 0021 LNOROOM EQU $-NOROOM 
142 OA02 20 CHRSPA 0B ne 

143 0A03 OD OA CHRCLF DB 00H, OAH 
144 0A05 DSECT ENDS 

145 

146 : 

147 0000 CSECT SEGMENT PARA 'CODE' 
148 ASSUME 

149 0000 MAIN PROC FAR 

150 0000 JE PUSH DS 

151 0001 2B CO SUB AX, AX 

152 0003 50 PUSH AX 

153 0004 88 ---- R MOV AX, DSECT 
154 0007 SE 08 MOV DS , AX 

155 0009 B84 30 MOV AH, 30H 
156 0008 CD 21 INT 21H 

157 0000 3C 02 CMP AL,2 

158 OO00F 70 09 JNL MAINOO 
159 0011 8D 16 098B R LEA DX ,MSGVER 
160 0015 B4 09 MOV AH, 9 

161 0017 CD 21 INT 21H 

162 0019 CB RET 

163 OO1A E8 O06A R MAINOO: CALL OPTIONS 
164 0010 8C D8 MOV AX,DS 

165 OO1F 8E CO MOV ES, AX 

166 0021 F6 06 0203 R 20 TEST FLAG1,FIOERR 
167 0026 74 10 JZ MAINO| 
168 0028 8D 16 09C0 R LEA DX, OPTMSG 
169 002C B89 0021 MOV CX,OPTMGL 
170 O02F B88 0002 MOV BX, 2 

171 0032 84 40 MOV AH, 40H 
172 0034 CD 21 INT 21H 

173 0036 EB 29 JMP SHORT MAINO3 
174 0038 C6 06 0207 R 00 MAINO1: MOV TOKCNT , 0 
175 003D 80 06 0607 R LEA AX. TOKENS 
176 0041 A3 0605 R MOV TOKPTR, AX 
177 0044 €8 O27F R CALL BUFGET 
178 0047 F6 06 0203 R 40 TEST FLAG1,FIEOF 
179 004C 75 13 JNZ MAINO3 
180 OO4E 49 DEC CX 
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Incorrect DOS version. 


Must be at least 2.00.' 


Incorrect parameters given. ' 


'TK: No room for user on device. ' 


;A SPACE TO OUTPUT 
s<or><]f> SEQUENCE 


CS:CSECT,0S:DSECT,SS:STACK 


;SET UP A RETURN ADDRESS 
;WE WANT TO RETURN TO 0S:0000 


;POINT TO START OF DATA AREA 

;MAKE ASSUME AND REALITY AGREE 

;GET DOS VERSION NUMBER 

;CALL 0S TO GET IT 

s1S IT AT LEAST 2.00 

;YES - GOOD ENOUGH 

; NO - POINT TO THE BAD DOS VERSION MESSAGE 


DOS 1.7? FUNCTION TO PRINT AN ERROR 


:CALL THE OPERATING SYSTEM 

;AND DO A LONG RETURN 

;PARSE THE OPTIONS (AT ES:80) AND SET FLAGS 
;MAKE ES AND DS THE SAME NOW 

;50 THE STRING MOVES WORK NICELY 

;WAS THERE AN ERROR IN THE OPTIONS? 


; NO - THEN GO WITH THIS BABY 

“YES - POINT TO OPTIONS ERROR MESSAGE 
GET LENGTH OF MESSAGE 
ERROR OUTPUT DEVICE HANDLE 
OPERATING SYSTEM FUNCTION NUMBER 
CALL THE OPERATING SYSTEM 
AND RETURN AS DONE 

“WE DON'T HAVE ANY TOKENS IN THE TABLE 


;POINT TO START OF TOKEN WORK AREA 

;SAVE POINTER TO NEXT FREE BYTE IN TOKEN SPACE 
:READ IN A BUFFER 

;1S THERE ANY DATA IN THE READ BUFFER 

; NO - WE ARE DONE WITH THIS PROGRAM THEN 

;YES - IGNORE THE TRAILING <cr> 
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181 O04F 7E E7 JLE MAINO) >I1F LENGTH IS ZERO OR WORSE JUST GET NEXT LINE 
182 0051 8D 1E 0000 R LEA BX, BUFFER -POINT TO THE FIRST BYTE OF THE DATA 

183 0055 £8 0103 R MAINO2: CALL NEXTOK :GET THE NEXT TOKEN 

184 0058 08 C9 OR CX: CX ;ARE WE DONE WITH THIS LINE YET? 

185 005A 75 F9 JNZ MAINO2 ; NO - GET YET ANOTHER TOKEN 

186 005C £8 O1A2 R CALL WRITE sYES - WRITE THE LINE(S) 

187 O05F EB 07 JMP SHORT MAINO 1 ;AND LOOP FOR THE NEXT LINE 

188 0061 £8 0213 R MAINO3: CALL CRLF ;WRITE A FINAL <cr><1f> SEQUENCE 

189 0064 80 00 MOV AL,0 ;THIS IS THE RETURN CODE TO POST 

190 0066 84 4C MOV AH, 4CH ; TERMINATE A PROCESS CODE 

191 0068 CD 21 INT 21H -END THIS PROGRAM 

192 006A MAIN ENDP 

193 

194 ; 

195 ; OPTIONS - This subroutine will parse the options passed to the program and 
196 set the required bits in FLAG1. No registers are preserved since 
197 we are called only once, before the program has really started. 


OPTIONS PROC NEAR 


198 006A 

199 006A C6 06 0505 R 00 MOV OUTCNT , 0 ; INITIALIZE OUTERS COUNT 

200 O06F BE 0081 MOV S1,81H ;POINT TO THE FIRST CHARACTER IN PARMS 
201 0072 26: 8A 04 OPTO1: MOV AL,BYTE PTR ES:0[SI] ;GET A BYTE FROM PARM STRING 

202 0075 46 INC SI ;POINT TO NEXT BYTE 

203 0076 3C 0D CMP AL, 00H ;1S IT THE END OF THE STRING? 

204 0078 75 01 JNE OPTO2 ; NO - GOODY, MORE DATA TO PROCESS 

205 Q07A C3 RET ;YES - RETURN TO CALLER THEN 

206 0078 3C 20 OPTO2: CMP A ;ALLOW SPACES ANYWHERE BEFORE SLASHES 
207 007D 74 F3 JE OPTO1 ; IGNORE THEN THOUGH 

208 QO7F 3C 2F CMP ALS y- ;WE HAVE TO START WITH A SLASH NOW 

209 0081 74 06 JE OPTO4 :IF IT IS A SLASH THEN PROCESS IT 

210 0083 80 OE 0203 R 20 OPTERR: OR FLAG], FIOERR ;OTHERWISE SET THE OPTIONS ERROR FLAG 
21] 0088 C3 RET ;AND RETURN 

212 0089 26: 8A 04 OPTO4: MOV AL,BYTE PTR ES:0[SI] ;GET THE NEXT CHARACTER AFTER SLASH 
213 008C 46 INC SI 


(Continued on next page) 





CDE SOFTWARE 


CHECKS & BALANCES $74.95 
At last! A full-screen editing checking and finance 
program so informative and easy to use you'll 
wonder how you lived without it! Checks & 
Balances provides a single entry system, 
unlimited categories, flexible search and printing 
capability, optional check printing, and easy-to- 
understand commands in plain English. There is 
even an on-screen HELP function. Available for 
CP/M-80 2.2, MS-DOS and PC-DOS. (Price 
without check printing, $54.95.) 


ORIGINAL ADVENTURE $19.95 
CDE offers the fastest running version of this 
Classic computer game available for a micro- 
computer. 


CATCHUM and LADDER $19.95 
Now you can enjoy the excitement of arcade 
games on your CP/M computer with these two 
variations of popular games. 


For a limited time, all three games—Adventure, 
Catchum and Ladder—are available for one low 
price of only $29.95! Catch the fun! 

Visa and MasterCard accepted. Write or phone for our 


complete catalogue of games, business and develop- 
ment software. Our telephone—(213) 661-2031. 


2463 McCready Avenue ® Los Angeles, CA 90039 


Circle no. 8 on reader service card. 
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QUALITY SOFTWARE AT 
REASONABLE PRICES 


CP/M Software by 
- Poor Person Software 
Poor Person’s Spooler $49.95 


All the function of a hardware print buffer at a fraction of the 
cost. Keyboard control. Spools and prints simultaneously. 


Poor Person’s Spread Sheet $29.95 


Flexible screen formats and BASIC-like language. Pre- 
programmed applications include Real Estate Evaluation. 


Poor Person’s Spelling Checker $29.95 


Simple and fast! 33,000 word dictionary. Checks any CP/M 


text file. 
$29.95 


aMAZEing Game 


Arcade action for CP/M! Evade goblins and collect treasure. 


$39.95 


Teach spelling and build vocabulary. Fun and challenging. 


Crossword Game 


$29.95 


Window System $29.95 


Application control of independent virtual screens. 


All products require 56k CP/M 2.2 and are available on 8” IBM and 5” 
Northstar formats, other 5” formats add $5 handling charge. California 
residents include sales tax. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 


Mailing Label Printer 


Select and print labels in many formats. 





Circle no. 51 on reader service card. 
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1 6-Bit (Listing Continued, text begins on page 98) 
Listing Two 


214 
215 
216 
217 
218 
219 
220 
22] 


YY TO 
I TO 
WwW to 


hoa % PFO M FO TO FO MT FO FP 
Ww W w M to TO MD FY FO C 


tro - Oo woOwot DD OT > 


oF , Oad 
w w 
a Ww 


235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
290 
251 
252 
253 
254 
Zo0 
296 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
271 
278 
279 
280 
281 
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0080 
008F 
0091 
0093 
0095 
0097 
0099 
009E 
00A3 
Q0A5 
00A7 
00AS 
O0AB 
0080 
0085 
0087 
008A 
00BB 
0080 
OOBF 
00C1 
00C3 
00C6 
00C7 
00CA 
00CC 
00CE 
0000 
0002 
0004 
0007 
0009 
000C 
O0DE 
00E0 
00E2 
Q0E7 


Q0ES 
00EB 
OOEF 
00F3 
O0F5 
00F7 
OOFE 
0100 
0103 


0103 
0103 
0107 
0109 
0108 
0100 
010E 
0110 
0111 
0113 
0115 
0116 
0118 
O11A 


3C 61 


1C 
2C 
3C 
1C 
15 
80 
F6 
15 
EB 
3C 
15 
80 
F6 
19 


26: 


46 


02 

20 

4C 

42 

0E 

OE 0203 R 02 
06 0203 R 01 
DE 

10 

D2 

D8 

OE 0203 R 01 
06 0203 R 02 
CC 

8A 04 


3C 4A 


74 
3C 
1 


26: 


46 
E8 


12 


04 
6A 
C0 
BA 04 


0247 R 
B7 


0A CO 


14 
3C 
1F 
A2 
EB 
Eg 
12 
OA 
75 
80 
EB 
28 


B3 

OF 

AF 
0205 R 
99 
0247 R 
A5 

C0 

07 

OE 0203 R 04 
89 

%) 


8A OE 0505 R 


1E 0506 R 
09 
07 


FE 06 0505 R 


80 
Eg 


OE 0203 R 08 
0072 R 


3E 0605 R 
07 
20 
04 


OPT4A: 


OPTO5: 


OPT06: 


OPT6A: 


OPTNUM: 


OPT08: 


OPTIONS ENDP 


CMP 
JL 
SUB 
CMP 
JL 
JNE 
OR 
TEST 
JNZ 
JMP 
CMP 
JNE 
OR 
TEST 
JNZ 
MOV 
INC 
CMP 
JE 
CMP 
JNE 
MOV 
INC 
CALL 
JC 
OR 
JE 
CMP 
JG 
MOV 
JMP 
CALL 
JC 
OR 
JNE 
OR 
JMP 
SUB 
MOV 
LEA 
ADD 
MOV 
INC 
OR 
JMP 


AL, ‘a’ ;1S IT LOWER CASE OR FUNNY? 

OPT4A ; NO - PROCESS NORMALLY THEN 

Me oe be ;YES - MAP LOWER CASE TO UPPER 

| SoS 6 ;MIGHT IT BE LEFT JUSTIFY OR NUMERIC 
OPTNUM ;PERHAPS NUMERIC - CHECK IT OUT 
OPTO5 >IT IS NOT LJ FOR SURE 

FLAG1,FILJ sASSUME IT IS LJ FOR THE MOMENT 
FLAG] ,FIRJ ;MAKE SURE THIS ISN'T A DUPLICATE 
OPTERR ;IF RJ ALREADY THEN 81G PROBLEMS 
SHORT OPT06 ;AND REJOIN COMMON JUSTIFY CODE 

AL, 'R' sMIGHT IT BE RIGHT JUSTIFY (RJ)? 
OPTERR ; NO - THEN IT IS AN ERROR 
FLAG1,FIRJ ;YES - ASSUME FOR THE MOMENT IT IS 
FLAG1,FILJ ;MAKE SURE WE AREN'T TRYING TO LEFT JUSTIFY TO0 
OPTERR -IF WE ARE, THEN WE ARE IN DEEP S..1 
AL, BYTE PTR ES:O[SI1] ;GET THE NEXT CHARACTER 

Sl 

ALS: ;1S IT THE J WE EXPECT? 

OPT6A sYES - PROCESS IT NORMALLY THEN 
Ay ;1S IT A LOWER CASE J? 

OPTERR ; NO - THAT'S TO BAD. 

AL.BYTE PTR ES:0/SI] ;GET THE FIRST BYTE OF THE NUMBER 
Sl 

DECBIN ;1S IT A NUMBER? 

OPTERR ; NO - THEN WE HAVE AN ERROR 

AL, AL 71S THE FIELD SIZE 0? 

OPTERR sYES - IT IS IN ERROR THEN 

AL,15 ;1S FIELD SIZE MORE THAN 15? 

OPTERR :YES - IT IS IN ERROR THEN 

TOKSIZ,AL ;SAVE THE FIELD SIZE FOR JUSTIFIED FIELDS 
SHORT OPTO1 sAND PROCESS FURTHER OPTIONS 

DECBIN :1S IT A NUMBER AFTER SLASH? 

OPTERR ; NO - THEN IT IS AN ERROR 

AL, AL ;ZERO 1S SPECIAL 

OPT08 ;NOT ZERO - SAVE IT IN ARRAY THEN 


FLAG], F IONE ;ZERO MEANS ONE TOKEN PER LINE 
SHORT OPTO1 ;PROCESS SOME OTHER TOKEN THEN 


CX CX ;GET A ZEROED DOUBLE REGISTER 
CL,OUTCNT ;GET OFFSET INTO OUTERS FOR THIS GUY 
BX,QUTERS ;POINT JUST BEFORE LIST OF OUTERS 

BX , CX ;BX POINTS TO ORIGIN 1 SAVE SPOT 
BYTE PTR [8X],AL ;SAVE THE TOKEN POSITION TO WRITE 
OUTCNT ;ADD ONE TO OUT COUNT 

FLAG1 ,F1SUB ;MAKE SURE SUBSTITUTE FLAG IS ON 
OPTO1 ;AND PLAY IT AGAIN SAM 


; NEXTOK - This subroutine will find the next token in the string pointed to 
by BX, with length contained in CX, and move it to the end of the 
token space. An entry in TOKTBL will be created for this token. 
When the subroutine returns CX will be zero if the source data 
string is empty. 8X will point to the first character past the last 


NEXTOK 


NEXTO1: 


NEXTO3: 


NEXT04: 


token. 
PROC NEAR 
MOV DI, TOKPTR ;GET POINTER TO WHERE TO PUT TOKEN 
MOV AL,BYTE PTR O[BX] ;LOOP PAST JUNK 
CMP Laisa ;1S IT A LEADING SPACE? 
JNE NEXTO3 ; NO - THEN WE HAVE A TOKEN 
INC BX :YES - POINT TO THE NEXT CHARACTER 
LOOP NEXTO1 : AND TRY THAT ONE 
RET ;RETURN IF WE ARE DONE WITH THE OUTPUT 
MOV SI, 8X :SAVE POINTER TO START OF TCKEN 
MOV AH, 1 s INITIAL GUESS FOR TOKEN LENGTH IS 1 
INC BX :POINT TO NEXT CHARACTER IN INPUT STRING 
MOV AL,BYTE PTR [BX] ;GET THE CHARACTER 
CMP A" > 31S IT THE END OF THE TOKEN? 
JE NEXTO5 -YES - WE HAVE SOME GOOD NUMBERS TO WORK WITH 
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; NO - INCREMENT COUNT OF CONTIGUOUS CHARACTERS 


eee) Ube pean : TILL OUT OF CHARS OR A FIELD SEPARATOR 
Se ert ea ‘NE SHOULON'T GET HERE BUT CORRECT FOR IT ANYWAY 
ee NEXTOS: PUSH CX SAVE NUMBER OF CHARACTERS LEFT IN SOURCE STRING 
fe eres TEST FLAGT,FIRJ#F1LU. ;D0 WE HAVE A MAXIMUM TOKEN utes 

287 0128-74 2C JZ _NEXTOS NO - JUST A NORMAL TOKEN WRITE 

288 = 012A. 3A 26 0205 R CMP AH, TOKSIZ ‘YES - IS THIS TOKEN JUST ee 

289 «ONZE Th 26 JE _NEXTOS IT SURE IS, WE WILL KEEP IT AS i 

290 0130 -1C 06 JL NEXTO6 IF TOKEN SIZE < MAX TOKEN SIZE WE MUST 

291 0132. BA 26 0205 R NOV AH, TOKSIZ OTHERWISE TAKE MAX TOKEN SIZE AS OUR OWN 

292 0136 EB IE JMP SHORT NEXTO9 ~—-;AND CONTINUE NORMALLY 

293 0138 -AO 0205 R NEXTO6: MOV AL, TOKSIZ ;GET THE TOKEN SIZE WE MUST PAD TO 

294 = 0138 2A Ci SUB AL. AH :AL NOW CONTAINS NUMBER OF SPACES NEEDED 

295 0130 -F6 06 0203 R 02 TEST FLAGI,FILJ ©; LEFT JUSTIFY THE THING? (PAD RIGHT WITH SPACE) 
296 = 014274 OA JZ NEXTOT ; NO - MUST PAD TO THE LEFT WITH SPACES 

297 0144 A2 0204 R MOV SPACES, AL ‘YES - SAVE HOW MANY SPACES TO FILL WITH 

298 0147 80 OE 0203 R 10 OR -FLAG1,FIWORK = ;,~—=—S MARK AS WORK TO 00 LATER ON 

298 = O14C «EB 08 JMP SHORT NEXTO? = ;_~—=—S AND JOIN MAINLINE CODE 

300 OME. BAC NEXTOT: MOV CL, AL ;CX CONTAINS THE NUMBER OF LEADING SPACES 

301 0150 C6 05 20 NEXTOB: MOV BYTE PTR [DIJ,' ' ;PUT A LEADING SPACE IN THIS TOKEN 
3020153. 47 INC OI POINT TO THE NEXT SLOT 

303 «0154 £2 FA LOOP NEXTO8 :AND FILL IN ALL NEEDED SPACES 

304 0156 8A cc NEXTOS: MOV CL,AH ;CX NOW CONTAINS TOTAL NUMBER OF CHARS IN TOKEN 
305 0158 FC CLO MAKE THE DIRECTION EVER UPWARD 

306 0159. F3/ Ag REP MOVE ;MOVE THE TOKEN TO ITS SPOT 

307 15B F6 06 0203 R 10 TEST FLAG, FIWORK 1S IT LEFT JUSTIFIED (WE NEED SPACES) 

308 = 0160-74: OF JZ NEXT44 ; NO - WE ARE OONE WITH THE HARD PART THEN 

309 —0162-BA OE 0204 R MOV CL, SPACES ;GET COUNT OF SPACES NEEDED 

310 0166 C6 05 20 NEXT10: MOV BYTE PTR [DIT," ' ;MOVE IN A TRAILING SPACE 

311016947 INC Ol :POINT TO NEXT SLOT 

312 O16. E2 FA LOOP NEXT10 :AND CONTINUE TILL ALL TRAILING SPACES DONE 

313 O16C 80 26 0203 R EF AND FLAG1, 255-F1WORK ;RESET THE WORK TO DO BIT 


314 0171 88 16 0605 R NEXT11: MOY DX, TOKPTR ;GET POINTER TO START OF THIS TOKEN 


(Continued on next Page) 


Thanks to YOU... We're Growing . PG Gree 
¢@ 
The Little Board™...$349* 


with YOU and your Computer . 
The world’s simplest and least expensive CP/M computer 











LEO ELECTRONICS, INC. 
P.O. Box 11307 

Torrance, CA. 90510 -1307 

Tel: 213/212-6133 800/421-9565 


* CP/M oe 
















<s 
TLX: 291 985 LEO UR Wis” 
Oo 
. PRICE... QUALITY pon 
PERSONAL SERVICE 10° 
64K UPGRADE 
9 Bank (IBM PC) $43.65 (150ns) 
He ease $41.85 (200ns) 
Ons $4.85 ea, 
(200ns) «$4.68 6 et oh : 
8 Bank (other PC) $38.80 (150ns) OE alien 
" $37.20 (200ns) * 4 MHz Z80A CPU, 64K RAM, ZBOA CTC, 2739 Boot ROM 
64 (150ns) $4.85 ea. * Mini/Micro Floppy controller (1-4 Drives, Single/Double Density, 1-2 sided 40/80 track 
(200ns) $4.65 mah * Only 5.75 x 7.75 inches, mounts directly to a 5 1/4” floppy drive : i 
: © 2 RS232C Serial Po (75- lu -38, ud), 1 Centronics Printer Po 
256K Mother-Saver’’ Upgrade + Pore Reiement “SYD at 75h BVOC osm ie ! 
256K : (150ns) $36.00 ea ee ° ZCPR3 CCP © Enhanced AMPRO BIOS 
® O Utilities included: 
6 1 1 6P-3 ee $4. 40 27 3 7 ne $ 3. 95 © read/write to more than 2 dozen other formats (Kaypro, Televideo, IBM CP/M86....) 
2716 — $3.20 2764 — $7.09 + menubasedsyrton ea a caren other computers 
TMS-2716 sole $4.95 2 2 Sy T- RMe $24.00 * BIOS and Utilities Source Code Available 







© SCSI/PLUS Adapter: 
We accept checks, 


Visa, Mastercard or Purchase Orders ° Mounts directly to Little Board ® Slave 1/0 board co 






cee z ‘ ntrol e Full ANSC X3T9.9 
from qualified firms and institutions. U.S. Funds only. Se LORE ety see 

Shown 20.0; California residents add 64% tox MAAC = an 
Shipping is UPS. Add $2.00 for ground and $5.00 for : 


air. All are} [ey g manufacturers. Al] 


COMPUTERS. INCORPORATED Mie ered tademerk of Zilog, Inc 
Pricing subject to change without 


CP/M is a registered trademark of Digital Research. 


* (415) 969-0930. TELEX 4940309 


Parts 100% guaranteed. 


notiec. : 67 East Evelyn Ave. « Mountain View, CA94041 
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| Circle no. 3 on reader Service card. 
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16-Bi f (Listing Continued, text begins on page 98) 





Listing Two 
315 0175 89 3E 0605 R 
316 0179 F6 06 0203 R 03 
317 O17E 74 04 
318 0180 8A 26 0205 R 
319 0184 8A CC 
320 0186 80 03 
321 0188 F6 26 0207 R 
322 018C 80 36 0208 R 
323 0190 03 FO 
324 0192 88 OC 
325 0194 89 54 01 
326 0197 FE 06 0207 R 
321 Q19B 59 
328 019C 08 C3 
329 019E 74 01 
330 Q1A0 49 
331 O1A1 C3 
332 Q1A2 
333 
334 
335 
336 
337 Q1A2 
338 Q1A2 28 CS 
339 O1A4 8A OE 0207 R 
340 Q1A8 0B C9 
341 Q1AA 75 01 
342 Q1AC C3 
343 D1AD F6 06 0203 R 08 
344 0182 75 08 
345 Q1B4 2A D2 
346 0186 £8 O1E2 R 
347 0188 FE C2 
\ 348 0188 &2 F9 
(349 01BD EB 18 
350 Q18F 8A OE 0505 R 
$1 01C3 8D 1€ 0506 R 
\2 01¢7 8A 17 
wm  01C9 3A 16 0207 R 
\  01CD TF 95 
O1CF FE CA 
0101 £8 O1E2 R 
0104 43 
01D5 £2 FO 
0107 F6 06 0203 R 04 
01DC 75 03 
O1DE £8 0213 R 
Q1E1 C3 
Q1E2 
E2 
F2 53 
3 91 
4 82 
5 80 03 
7 F6 £2 
} 8D 1€ 0208 R 
| 03 D8 
28 C9 
BA OF 
88 57 01 
E8 0226 R 








F6 06 0203 R 04 


NEXT 12: 


NEXT 13: 
NEXTOK 


» WRITE 


WRITE 


WRITE1: 


WRITE2: 


WRITES: 


WRITES: 


WRITES: 


WRITE6: 


WRITET: 


WRITE 


: TOUT - 


TOUT 


MOV 
TEST 
JI 
MOV 
MOV 
MOV 
MUL 
LEA 
ADD 
MOV 
MOV 
INC 
pop 
OR 
JI 
DEC 
RET 
ENDP 


TOKPTR, DI 

FLAG), FILJ+F1RJ 
NEXT 12 

AH, TOKSIZ 

CL, AH 

AL, 3 

TOKCNT 

SI, TOKTBL 

SI, AX 

BYTE PTR (SI],CL 


;SAVE POINTER TO NEXT FREE TOKEN BYTE 

;00 WE HAVE FIXED LENGTH TOKENS? 

; NO - TAKE THEM AS WE GET THEM 

sYES - SET THIS TOKENS LENGTH TO WHATEVER 
;SAVE LENGTH OF TOKEN 

;NUMBER OF BYTES PER ENTRY 

:AX IS NOW AN OFFSET IN TOKTBL 

;POINT TO START OF TOKEN TABLE 

:S1 POINTS TO AN ENTRY IN TOKEN TABLE 
:MOVE IN LENGTH OF ENTRY 


WORD PTR 1[SI],DX ;SAVE POINTER TO START OF TOKEN IN TABLE 


TOKCNT 
CX 
CX, CX 
NEXT 13 
CX 


:COUNT ONE MORE TOKEN 


:(X CONTAINS NUMBER OF SOURCE CHARACTERS LEFT 


;DONE YET? 


;YES - RETURN 


- NO - CORRECT FOR UNDERCOUNTING BY ONE 


;AND RETURN 


- This routine will write the tokens to the standard output device. 
It is controlled by the settings of flags in FLAG1. 


PROC 
SUE 
MOV 
OR 
JNZ 
RET 
TEST 
JNZ 
SUB 
CALL 
INC 
LOOP 
JMP 
MOV 


LEA 
MOV 
CMP 
JG 
DEC 
CALL 
INC 
LOOP 
TEST 
JNZ 
CALL 
RET 
ENDP 


PROC 
PUSH 
PUSH 
PUSH 
MOV 
MUL 
LEA 
ADD 
SUB 
MOV 
MOV 
CALL 


TEST 


This 


NEAR 

CX CX 

CL, TOKCNT 
CX, CX 
WRITE1 


FLAG1 , F1SUB 
WRITES 

DL, OL 

TOUT 

OL 

WRITE2 

SHORT WRITE6 
CL,OUTCNT 


BX ,QUTERS 
OL, BYTE PTR [BX] 
DL, TOKCNT 
WRITES 

OL 

TOUT 

BX 

WRITES 
FLAG1,F IONE 
WRITE? 

CRLF 


NEAR 

BX 

CX 

OX 

AL ,3 

OL 

BX, TOKTBL 
BX, AX 
CX, CX 


-GET AN EMPTY LOOP COUNTER 


-CL CONTAINS TOTAL NUMBER OF TOKENS READ 


-DO WE HAVE ANYTHING TO WRITE OUT? 


-YES - THEN GO FOR IT 


- NO - WE ARE DONE BEFORE WE EVEN BEGIN 


-ARE WE CHANGING THEIR ORDER? 


-YES - THEN USE DIFFERENT WRITE LOGIC 


- NO - JUST OUTPUT THEM ALL IN ORDER 


WRITE THE SUCKER 

-POINT TO THE NEXT TOKEN 

AND GO THROUGH THEM ALL 

“RETURN, A JOB WELL DONE 

“GET THE NUMBER OF TOKENS 10 WRITE 


-POINT TO FIRST ONE TO OUTPUT 
-GET A TOKEN TO WRITE 
1S IT LESS THAN OR EQUAL 10 MAX TOKEN? 
- NO - DON'T WRITE IT THEN 
-YES - ADJUST FOR ORIGIN ONE AND 
WRITE THIS TOKEN THEN 
“POINT TO THE NEXT TOKEN COUNT TO WRITE 
-AND LOOP THROUGH THE WHOLE LIST 
-ARE WE OUTPUTING ONE TOKEN PER LINE? 
-YES - THE LAST <er><If> HAS BEEN WRITTEN 
- NO - WRITE A TRAILING <or><1f> SEQUENCE 
-DONE, GO HOME NOW 


routine will find and write the token from the input line that is 
in position DL on that line. 


-SAVE THE REGISTERS 


“NUMBER OF BYTES PER TOKTBL ENTRY 

-GET AN OFFSET INTO TOKTBL FOR THIS ONE 
-POINT TO START OF TABLE 

-NOW POINT TO THE CORRECT 3 BYTE ENTRY 
-TERO THE COUNTER 


CL.BYTE PTR [BX] ;GET THE NUMBER OF CHARACTERS IN THIS TOKEN 
OX,WORD PTR 1{8X) -AND POINT TO FIRST BYTE OF SAID TOKEN 


OSWRITE 
FLAG1,FIONE 


“WRITE TO THE STANDARD OUTPUT DEVICE 


] age 10 
“ONLY ONE TOKEN PER LINE? (Continued on pag 
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screen 
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DOS LINK SUPPORT ‘35 
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1 6-Bit (Listing Continued, text begins on page 98) 
Listing Two 


383 O1FE 74 05 JZ TOUTO2 ; NO - WRITE A SPACE THEN 

384 0200 £8 0213 R CALL CRLF sYES - WRITE A <cr><1f> SEQUENCE 

385 0203 EB OA JMP SHORT TOUTO3 AND RETURN 

386 0205 89 0001 TOUTO2: MOV CX, 1 ;LENGTH OF SPACE IS ONE 

387 0208 8D 16 0A02 R LEA DX ,CHRSPA ;POINT TO A SPACE s 
388 020C £8 0226 R CALL OSWRITE ;WRITE TO STANDARD OUTPUT DEVICE 

389 O20F 5A TOUTO3: POP DX ;RESTORE THE REGISTERS 

390 0210 59 POP CX 

391 0211 58 POP BX 

392 0212 C3 RET ;AND RETURN 

393 0213 TOUT ENDP 

394 ; 

395 : 

396 : 

397 ; CRLF - Everybody knows what this routine does. 

398 ; 

399 0213 CRLF PROC NEAR 

400 0213 50 PUSH AX ;SAVE THE REGISTERS 

401 0214 53 PUSH BX 

402 0215 51 PUSH CX 

403 0216 52 PUSH OX 

404 0217 89 0002 MOV CX,2 ;LENGTH OF CR LF STRING 

405 021A 8D 16 0A03 R LEA OX, CHRCLF ;POINT TO THE DATA TO WRITE 

406 O21E £8 0226 R CALL OSWRITE ;WRITE TO STANDARD OUTPUT DEVICE 

407 0221 5A POP OX ;RESTORE THE REGISTERS 

408 0222 59 POP CX 

409 0223 58 PoP BX 

410 0224 58 PoP AX 

411 0225 C3 RET ;AND RETURN 

412 0226 CRLF ENDP 

413 : 

414 

415 ; OSWRITE - This routine will write the characters pointed to by 0S:DX, of 
416 length contained in CX, to the standard output file. If any errors 
417 are detected a message will be written to the standard error device 
418 : and flag F1EQJ will be set. 

419 , 

420 0226 OSWRITE PROC NEAR 

421 0226 BB 0001 MOV BX, 1 ;HANDLE OF STANDARD OUTPUT DEVICE 

422 0229 84 40 MOV AH, 40H ;WRITE TO FILE OR DEVICE SYSTEM FUNCTION 

423 022B CD 21 INT 21H ;CALL THE OPERATING SYSTEM 

424 022D 72 04 Jc OSWRO1 ;IF ERROR 5, OR 6 THEN END 

425 022F 38 C8 CMP CX, AX ;DID WE WRITE AS MANY CHARACTERS AS WE WANTED? 
426 0231 74 13 JE OSWR9S sRETURN IF ALL WENT WELL 

427 0233 8D 16 09E1 R OSWRO1: LEA DX ,NOROOM ;POINT TO THE NO SPACE MESSAGE 

428 0237 BS 0021 MOV CX, LNOROOM ;GET THE LENGTH OF THE MESSAGE 

429 023A 8B 0002 MOV BX, 2 ;GET HANDLE FOR STANDARD ERROR DEVICE 

430 0230 B84 40 MOV AH, 40H ;WRITE TO FILE OR DEVICE SYSTEM FUNCTION 

431 023F CD 21 INT 21H ;LET HIM KNOW WE ERRED . 

432 0241 80 OE 0203 R 40 OR FLAG1, F1EOF ;PRETEND EOF ON INPUT DEVICE SO PROGRAM STOPS 
433 0246 C3 OSWR99: RET ;AND RETURN 

434 0247 OSWRITE ENDP 

435 

436 ; DECBIN - On entry this routine has the first character to convert to binary 
437 in AL. SI points to additional characters. On exit SI points to 
438 : the first non-numeric character found. AL contains the binary value 
439 : and Carry isn't set. If Carry is set on return then an invalid 
440 ; number was found. 

441 0247 DECBIN PROC NEAR 

442 0247 53 PUSH BX ;SAVE A REGISTER 

443 0248 £8 0273 R CALL DECB04 ;CHECK FOR NUMERIC IN AL 

444 0248 73 03 JNC DECB02 ;I1F AL WAS NUMERIC IT IS NOW IN [0..9] 

445 0240 F9 DECB01: STC ;MAKE SURE CARRY FLAG IS SET 

446 024E 58 POP BX ;RESTORE THE REGISTERS 

447 024F C3 RET ;AND RETURN INDICATING AN ERROR 

448 0250 8A D8 DECB02: MOV BL.AL ;GET THE TOTAL SO FAR 

449 0252 26: 8A 04 MOY AL, BYTE PTR ES:0(SI] ;GET A BYTE FROM THE INPUT STREAM 

450 0255 46 INC S] 
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- 451 0256 £8 0273 R CALL DECBO4 ;CHECK IT FOR NUMERIC 


452 0259 73 06 JNC DECBO3 -IF IT IS NUMERIC THEN JUGGLE SOME 

453 0258 8A C3 MOV AL, BL sOTHERWISE GET THE VALUE TO RETURN 

454 0250 F8 CLG -CLEAR THE CARRY BIT TO SAY IT WORKED 

455 Q25€ 4E DEC 5] -MAKE SURE NEXT CHAR TO GET IS NON-NUMERIC 
456 Q25F SB POP BX -RESTORE THE REGISTER 

457 0260 C3 RET > AND RETURN 

458 0261 8A F8 DECBO3: MOV BH, AL ;SAVE THE NUMBER FOR A MINUTE 

459 0263 80 0A MOV AL, 10 :GET THE BASE 

460 0265 F6 E3 MUL BL ‘SHIFT CURRENT COUNT LEFT ONE POSITION (BASE AL) 
461 0267 8A DF MOV BL, BH ;MAKE BX A GOOD NUMBER 

462 0269 2A FF SUB BH, BH :BX NOW CONTAINS 16 BIT VALUE OF ASCII DIGIT 
463 0268 03 C3 ADD AX, BX sADD IN THE LATEST DIGIT 

464 0260 OA E4 OR AH, AH ;MAKE SURE NO OVERFLOW 

465 026F 75 OC JNE DECBO1 :IF THERE WAS THIS IS AN ERROR 

466 0271 €B DD JMP SHORT DECB02 :CONTINUE ON OUR WAY 

467 0273 2C 30 DECBO4: SUB AU! :IS IT LESS THAN A NUMBER 

468 0275 7C 06 JL DECBO5 »YES - RETURN WITH CARRY SET 

469 0277 3C 09 CMP AL,9 -I1S IT MORE THAN A NUMBER 

470 0279: TF 02 JG DECB05 -YES - RETURN WITH CARRY SET 

47 0278 F8 CLC ; NO - MAKE SURE CARRY IS OFF 

472 027C C3 RET ; THEN RETURN THE NUMBER 

473 0270 F9 DECBO5: STC ;SET CARRY ON 

474 O27E C3 RET :AND RETURN 

475 027F DECBIN ENDP 

476 

477 : 

478 - BUFGET - This routine will read one 'line' from the standard input device to 
479 : BUFFER. On exit CX contains the count of characters read. FIEOF is 
480 set if an end of file condition is encountered. 

48} 027F BUFGET PROC NEAR 

482 O27F 50 PUSH AX :SAVE THE REGISTERS 


(Continued on next page) 
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1 6-Bit (Listing Continued, text begins on page 98) 
Listing Two 


;SHOULD WE REFLECT AN IMMEDIATE EOF? 
; NO - STANDARD LOGIC HERE THEN 
;YES - SET THE END OF FILE BIT 


FLAG1,255-F1QEOF ;AND SAY IT IS NO LONGER PENDING 


;RETURN NOW 

;COUNT OF CHARACTERS GOTTEN 

;POINT DESTINATION TO BUFFER 

;GET ONE CHARACTER 

;DID WE GET END OF FILE ON THAT TRY? 

;YES - LETS HOPE IT IS AN ERROR 

;1S THERE ANYTHING IN THE BUFFER? 

; NO - JUST RETURN WITH CX=0 AND FIEOF 
;YES - SLAP A <cr> ON THE END 

PUT IT AT END OF BUFFER 

CLEAR THE END OF FILE BIT 

SAY NEXT TIME TURN ON EOF FOR SURE 
AND RETURN THIS LAST BUFFER 

1S IT THE RECORD TERMINATOR CHARACTER? 
;YES - DON'T TURN THAT INTO A SPACE 

; NO - IF NOT <cr> AND < 20H THEN MAKE A SPACE 
;]F >=20H THEN USER AS IT 
;OTHERWISE MAKE IT A SPACE 

;WRITE THE CHARACTER TO THE OUTPUT BUFFER 
;DID WE JUST WRITE THE RECORD TERMINATOR? 
;YES - THEN RETURN 

sHAVE WE WRITTEN 255 CHARACTERS YET? 

; NO - GET THE NEXT CHARACTER THEN 


BYTE PTR [D1},0DH ;MAKE IT A TERMINATOR 


;RESTORE THE REGISTERS 


;AND RETURN 


;1S THERE ANY DATA IN GBUFF? 

TF COUNT IS ZERO THEN THERE ISN'T 
; THERE IS DATA SO READ IT 

sSAVE THE REGISTERS WE MIGHT NEED 


;0S FUNCTION TO READ FROM STANDARD DEVICE 
FILE HANDLE TO READ FROM (STANDARD DEVICE) 
;NUMBER OF CHARACTERS TO READ 

;POINT TO WHERE TO PUT THE DATA 

;SAVE POINTER TO FIRST CHARACTER 

;CALL THE OPERATING SYSTEM TO HANDLE THE WORK 
;SAVE THE NUMBER OF CHARACTERS READ 

;PUT DATA COUNT IN DX WHERE IT BELONGS 
;RESTORE THE REGISTERS 


;DID WE GET DATA OR EOF? 

;DATA THIS TIME 

;SET THE END OF FILE ENCOUNTERED BIT 
;AND RETURN 

;GET POINTER TO CHARACTER TO RETURN 


;GET CHARACTER AND INCREMENT POINTER 
;DECREMENT LENGTH 


;COUNT THIS CHARACTER 


;AND RETURN THE CHARACTER 


483 0280 53 PUSH —- BX 

484 0281 52 PUSH ~— OX 

485 0282 57 PUSH = OO 

486 0283 56 PUSH = SI 

487 0284 F6 06 0203 R 80 TEST = FLAG1, FIQEOF 
488 0289 74 0C JZ BUFGO0 

489 028B 80 OE 0203 R 40 OR FLAG1, F1EOF 
490 0290 80 26 0203 R 7F AND 

491 0295 EB 41 JMP SHORT BUFRET 
492 0297 28 C9 BUFGOO: SUB CX, CX 

493 0299 8D 3E 0000 R LEA DI, BUFFER 
494 029D £8 O2DE R BUFGO1: CALL  CGET 

495 Q2A0 F6 06 0203 R 40 TEST — FLAG1, F1EOF 
496 Q2A5 74 15 JZ BUFGO2 

497 Q2A7 OA C9 OR CL,CL 

498 Q2A9 74 20 JZ BUFRET 

499 Q2AB 84 OD MOV AH.ODH 

500 O2AD £8 031C R CALL  CPUT ; 
501 0280 80 26 0203 R BF AND FLAG, 255-F1E0F ; 
502 0285 80 OE 0203 R 80 OR FLAG, F1QEOF 
903 Q2BA EB 1C JMP SHORT BUFRET 
504 Q28C 80 FC 0D BUFGO2: CMP AH,0DH 

505 Q2BF 74 07 JE BUFGO3 

506 0201 80 FC 20 CMP AH, 20H 

507 02¢4 7D 02 JGE BUFGO3 

508 0206 84 20 MOV AH,* 

509 0208 E8 031C R BUFGO3: CALL § CPUT 

910 02CB 80 FC 0D CMP AH,ODH 

511 O2CE 74 08 JE BUFRET 

912 0200 80 F9 FF CMP CL,255 

913 0203 75 C8 JNE BUFGO1 

514 0205 C6 05 0D MOV 

915 0208 5E BUFRET: POP SI 

516 0209 5F POP DI 

517 O2DA 5A POP DX 

5918 02DB 58 POP BX 

919 02DC 58 POP AX 

520 0200 C3 RET 

521 Q2DE BUFGET ENDP 

922 

523 02DE CGET PROC NEAR 

924 O2DE 88 16 0100 R MOV OX,GLEN 

S20 Q2E2 0B D2 OR OX , DX 

926 02E4 75 25 JNZ CGETO1 

927 Q2E6 51 PUSH = CX 

528 Q2E7 57 PUSH =O 

929 Q2E8 84 3F MOV AH, 3FH 

530 Q2EA BB 0000 MOV BX,0 

531 Q2ED B9 OOFF MOV CX, 255 

932 02FO 8D 16 0104 R LEA DX, GBUFF 

933 02F4 89 16 0102 R MOV GBPTR, DX 

534 Q2F8 CD 21 INT 21H 

935 O2FA A3 0100 R MOV GLEN , AX 

536 02FD 88 00 MOV DX, AX 

937 Q2FF 5F POP DI 

938 0300 59 POP CX 

539 0301 0B 02 OR DX, DX 

540 0393 75 06 JNZ CGETO1 

54] 0305 80 OE 0203 R 40 OR FLAG1, F1EOF 
942 030A C3 RET 

543 0308 8B 1E 0102 R CGETO1: MOV BX, GBPTR 

544 030F 8A 27 MOV AH, BYTE PTR [8X] 
545 0311 FF 06 0102 R INC GBPTR 

346 0315 FF OE 0100 R DEC GLEN 

547 0319 FE C1 INC CL 

548 0318 C3 RET 

949 031C CGET — ENDP 
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550 


551 031C CPUT PROC NEAR 
592 031C 88 25 MOV BYTE PTR [DI],AH ;SAVE THE CHARACTER 
903 O31E 47 INC D] ;POINT TO NEXT SPOT 
594 Q31F 80 FO FF CMP CL, 255 ;WILL WE OVERREACH NEXT TIME? 
555 0322 75 01 JNE CPUTO1 ; NO - GOOD THING 
| 556 0324 4F DEC DI ;YES - CAN'T LET THAT HAPPEN 
997 0325 C3 CPUTO1: RET ;ALL DONE 
558 0326 CPUT — ENDP 
999 0326 CSECT ENDS 
960 END MAIN 


Segments and groups: 


Name Size align combine class 
Ee ac, yl. Sey eer POSS 0326 PARA —- NONE 'CODE' 
1 SS SRS ie en ae 0A05 PARA —- NONE DATA’ 
PRM eg ty SGN) boos Ue! “Po dlcw os 00C0 PARA STACK = 'STACK' 
Symbols: 
Name Type Value Attr 
Bile EG Oe pie es eee hs L BYTE 0000 DSECT Length =00FF 
WU oo tin agg Ree L NEAR 0297 CSECT 
yo an seu g Gok week L NEAR 029D  CSECT 
BEE aS: ah wing! ites ard ate L NEAR 028C  CSECT 
C7 gk! Si nS irae ene ede L NEAR 0208 CSECT 
SRE alee iP Scere tes N PROC O27F  CSECT Length =005F 
RUPReee Soy fae ed a te tse | L NEAR 0208 CSECT 
RE gs Oe a oe N PROC O02DE  CSECT Length =003E 
Gt SO eR Se RN oe eo ae L NEAR 0308  CSECT 
Re Ae be kee ek L BYTE 0A03 DSECT 
DER eS rec a iS oa L BYTE 0A02 DSECT 
<1, SS, SERS SOS SPR er aE N PROC 031C  CSECT Length =000A 
WPI Se es ee aoe oe is L NEAR 0325 CSECT 
RE le ei ea oe Nye N PROC 0213 CSECT Length =0013 
Mee ye le hae 3h a L NEAR 024D CSECT 
PRUSUe se ere er a SE, L NEAR 0250 CSECT 
CRUG bree te sod at Bi ghanals L NEAR 0261 CSECT 
RUB eee, SSS yo gn L NEAR 0273 CSECT 
Pum ge Mo iy Go pts, Sake es L NEAR 0270  CSECT 
DPOB A Ae ok ar ee N PROC 0247 CSECT Length =0038 
PARE Sg Sik ol ohg ee eg Number 0040 
ES SRSA SEE ae ea ree Number 0002 
PADERM is eras SGD. ek uel ee Number 0020 
ik JS SS gre es eee Number 0004 
Picoe eee ee pe Ge Number 0080 
af SpE tp Ben GANS CAE TF berets a eee oes Number 0001 
gE OE ee a ae ed eee re Number 0008 
FMM oie ce Sy Bethe 2% Number 0010 
BERS rie ek an Wag ea eS L BYTE 0203 DSECT 
SE Doce Fo ue eS 1s L WORD 0102 DSECT 
Wit eS: Bg seh L BYTE 0104 DSECT Length =Q0FF 
BRN be Sa nn gt Be L WORD 0100 DSECT 
COR s te ert Be ee Number 0021 
; MBN oF gc ede ee) Ble on ee AE F PROC 0000 CSECT Length =006A 
POU xe a GP tas L NEAR OO01A CSECT 
PURE tae eee ec ck we ees L NEAR 0038 CSECT 
2) Se Stes eae a ea L NEAR 0055 CSECT 
f NS gE nh A i a te ee L NEAR 0061 CSECT 


(Continued on next page) 
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1 6-Bit (Listing Continued, text begins on page 98) 


Listing Two 


WAM IR ia ests ee Rat ern 


POPES Ss 6. ae tg So ee a 
Pe Soe erca epal oe etme ye 
I eign ec ate ee ee Ba 
CPT SS ee ee a Sa 
AGN ticae ae we ae ee 
co ge ee eae a a ad ee 
OSes oS Wa ge he Pigtalte 
MRE ie sages ek ae we SS 
TR keke ek Mgt 
2 A ih mene Her eee 
SUA ke Sais a 6? GE Ne 


NOE a oe Sal eS area 
ACE ES ae ae a eae 


al See ee ere es 
ER a, eee arate gE 
co ght, RRO aes i amet crates eC 
hi a eae 
ROTI ese yeh Vehie 2) oe Bees 


PPE Reni Boh of etic? Gy 2 ae 


Warning Severe 
Errors Errors 
0 0 
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L BYTE 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
N PROC 
L BYTE 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
N PROC 
Number 
L BYTE 
L NEAR 
L NEAR 
L NEAR 
N PROC 
L BYTE 
L BYTE 
L BYTE 
L BYTE 
L BYTE 
L BYTE 
L WORD 
L BYTE 
L BYTE 
N PROC 
L NEAR 
L NEAR 
N PROC 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 


L NEAR 


0988 
0107 
0111 
0115 
0122 
0138 
Q14E 
0150 
0156 
0166 
0171 
0184 
O1A1 
0103 
09E1 
0072 
0078 
0089 
00A7 
0087 
O0ES 
0093 
00C3 
0083 
O06A 
0021 
09C0 
00D9 
0233 
0246 
0226 
0505 
0506 
0204 
0206 
0207 
0607 
0605 
0205 
0208 
Q1E2 
0205 
020F 
O1A2 
01AD 
0186 
018F 
0107 
0104 
01D7 


O11 


DSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
DSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


DSECT 
CSECT 
CSECT 
CSECT 
CSECT 
DSECT 
DSECT 
DSECT 
DSECT 
DSECT 
DSECT 
DSECT 
DSECT 
DSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


CSECT 


Length =009F 


Length =0099 


Length =0021 


Length =00FF 


Length =0384 


Length =02FD 
Length =0031 


Length =0040 


End Listing 
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LYNA 


the professional’s replacement 
fo) mm" [Cer cex-ye) jam molt) 


LYNX™ DOES 
EVERYTHING L80™ DOES AND MORE! 


LYNX™ LETS YOU USE ALL AVAILABLE MEMORY. 


You can create COM files that are 10K larger— 
without overlays—by replacing L80 with LYNX. 


LYNX™ IS A FULL OVERLAY LINKER 


Running twice as fast as its nearest competitor, 
LYNX is tree structured, multi-segmented and multi- 
leveled, with automatic or explicit overlay invoca- 
tion. You can run programs that are larger than avail- 
able memory. 


LYNX™ HAS BEEN HELPING MICROSOFT FOR- 
TRAN PROGRAMMERS FOR YEARS—NOW IT IS 
ALSO AVAILABLE FOR MICROSOFT BASIC AND 
AZTEC C.™ 
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THE SOFTWARE DESIGNER 







A Realizable Fantasy 


by Michael Swaine 


In 1976, Jim Warren, the guiding spirit 
of this magazine’s early days, defined in 
Jim Warren style the term realizable 
fantasies: “*. .. projects that we feel (1) 
are within the bounds of current tech- 
nology and knowledge, (2) can be im- 
plemented by members of the hobbyist 
community, and (3) can... be realized 
within 24 months or less.”’ 

Warren asserted DDJ’s commitment 
to pursue and promote such realizable 
fantasies, and he pointed to their prob- 
able source: “You are part of this... 
the proposals and designs and certainly 
the implementations will come from 
you. Send us your ideas, your cre- 
ations, your problems, and your solu- 
tions, so that we may share them with 
everyone.” 

DDJ was a hobbyist newsletter in 
1976, and today it’s a magazine read 
by professional programmers, an evo- 
lution that closely parallels the evolu- 
tion of the microcomputer software in- 
dustry. One regrettable consequence 
of all this seriousness is a dearth of fan- 
tasy: little fantasy in DDJ, little fantasy 
in the industry, little fantasy in the de- 
sign of new software. If you are keep- 
ing an eye on the bottom line, you 
aren't looking up. 

Feeling as I did that Warren’s spirit 
of playful creativity was ominously 
missing in software design in the mid- 
80s, I hit upon the simple plan of call- 
ing some active software designers and 
others who had thoughts about soft- 
ware design and asking them what tool 
of the trade they felt was missing: the 
realization of what fantasy would 
make the task of software design easi- 
er, more enjoyable, more accessible to 
a new generation of programmers, 
more manageable to those currently 
doing design work? 

As I say, it was a simple plan—sim- 
ple to the point of naivete as it turned 
out. I soon found, as I began polling 
people for their realizable fantasies, 
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that the question was not as open-ended 
as I thought. It appears to have one 
answer. 

Here’s Steve Dompier, software de- 
signer: “I want to program by flow- 
charting. I want to draw a flowchart 
and employ a tool that turns the flow- 
chart into a program. It might produce 
source code or object code—it doesn’t 
matter. We already have menus of 
icons; why not icons for flowchart sym- 
bols? Function boxes, decision box- 
es... we could have icons for the vari- 
ous loop structures. 

‘Maybe the tool would work hierar- 
chically: you’d start with a simple de- 
sign then get more and more detailed. 
That implies the top-down design ap- 
proach, which is the way at least some 
programmers work. And you could ex- 
amine the structure you were building 
hierarchically: point to a box in the 
structure, zoom in on it, and it expands 
to show what’s in it. 

“Building at the lowest level, you 
might have to type some code, but 
you'd certainly have some library func- 
tions available, represented as icons, se- 
lectable by pointing. Looking at the 
program, you should be able to zoom 
down to a specific area, to a specified 
level, even right down to source code.” 

Here’s Lee Felsenstein, hardware 
designer: ““What I'd like to see—quite 
literally see—is the ability for the visu- 
al representation of structure, very 
much like a schematic diagram, but 
for software. I’d like to see software 
schematic diagrams realized in com- 
puter graphics. It’s been done for the 
hardware with CAD systems.” 

It soon became clear that the ability 
to design by manipulating visual repre- 
sentations of program structures is 
something that very many designers 
want. That’s the fantasy. Is it realiz- 
able? Sure. Should it be realized? Are 
you kidding? That this has not yet hap- 
pened can perhaps be relegated to the 


conventional-wisdom realm of explana- 
tion, subdomain barefoot progeny of 
cobblers. 

The software design tool described 
here could be in the process of develop- 
ment now; someone reading this col- 
umn could at this moment be working 
on it. Or could start work on it tomor- 
row or today. This minute. 

The challenge is implicit. But let’s 
be blatant. Christmas is coming. The 
software industry, after all, has been 
good to a lot of people. It has given the 
world (or that part of it with access to 
computers at least) some very useful 
tools. Won’t someone give the software 
industry a present? 

(There’s a second challenge implicit 
in all this. Despite my pretense that a 
single answer exists to the question of 
what software design tools are needed, 
fantasy is inherently unbounded. There 
are, of course, infinitely many realiz- 
able fantasies of software design. You 
are welcome, as ever, to send us yours. ) 
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“, ..C86 was the only compiler we tested that 
ran every benchmark we tried and gave the 
expected results... Computer Innovations 
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by Michael Wiesenberg 


Mid-morning at I—-Q Industries in the 
heart of Silicon Valley. Grey Scriven- 
er, senior technical writer specializing 
in software manuals, starts a fresh pot 
of coffee brewing at one of I — Q’s per- 
manent coffee stations. He glances up 
at the convex mirror mounted near the 
ceiling where the corridor intersects 
another. Seeing someone heading his 
way, Scrivener hurriedly adjusts the 
knot in his bottle-green knit tie. 

Spotswood Gilbert, senior program- 
mer, rounds the corner carrying a 
chocolate-covered doughnut. ‘‘Mor- 
nin’, Grey. Sure glad you’re makin’ 
some good coffee. Can’t stand that 
company stuff.” 

‘““Good morning, Spotswood. The 
coffee will be ready in a few minutes. 
How are you today?” 

‘Fine. How’s the novel comin’?” 

‘‘T’m on the third rewrite.” 

Bob Levin, hotshot programmer, 
ratty sneakers squeaking, approaches 
the coffee machine. Scrivener casts a 
faintly disapproving glance at the 
young man’s uncombed blond hair, 
trailing over a wrinkled Star Wars t- 
shirt. Levin stops. ““How ya doing, 
Spotty? Hey, Grey.” 

Gilbert smiles. ““Howdy, Bobby. 
You’re up kinda early, aren’t you?”’ 

“T left early last night, so I thought I’d 
make it in for the morning doughnuts.” 

The water has dripped through. 
Scrivener fills Gilbert’s cup and then 
his own. “By ‘early’ he means he left 
before midnight.” 

Sally McRae, another hotshot pro- 
grammer, arrives wearing her usual 
“uniform”: jeans, Nikes, and a Bay-to- 
Breakers t-shirt. ““Hi, guys. You’re 
here early, Bob. Don’t tell me you 
made the coffee.”’ 

Levin looks embarrassed. “‘Nah, I 
don’t know how to run that thing. Grey 
made it.”’ 

Scrivener sniffs. ““Something’s on 
fire.” 
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McRae jumps. “What? Where?” 

Marian Smith, system operator, ap- 
pears, cigarette hanging out of her 
mouth. Scrivener fans the air with his 
hand to dissipate the smoke. Smith 
takes no more notice of this than she 
does the other criticism she frequently 
gets about her smoking. “Good morn- 
ing, gentlemen, Sally. Who’s on Gold- 
finger? I have to bring it down this af- 
ternoon. Ill be backing up all the 
system disks, but you'll have to take 
care of your own privates.” 

Levin eyes McRae appreciatively. 
“Playing two-man volleyball at noon, 
Sally?” 

“Yes, and I don’t see why it has to be 
called two-man. What’s wrong with 
two-person volleyball?” 

Scrivener always has the full story 
on word usage. “In a phrase like ‘two- 
man volleyball’ or a word like ‘chair- 
man,’ the man has no gender. It refers 
to both men and women. When histori- 
ans refer to the history of man, they 
are not excluding women, you know.”’ 

McRae looks him right in the eye. 
“Crap,” 

Gilbert looks uncomfortable. Where 
he’s from, ladies don’t talk that way. 
“Say, I got an interesting message on 
IQMAIL today. It was from my friend 
at HP, Jim Davis. You know, he’s the 
one into puzzles. He gave me a great 
one. He said it was an old one he’d 
found that could be worked out by 
hand, but he thought a computer could 
do it a lot more efficiently. I wonder if 
you could write a program to solve it, 
Bob?” 

“Let’s hear it. I'll look at it after 
work.”’ 

McRae turned her scorn from Scriv- 
ener to Gilbert. ““What makes you 
think J can’t do it?” 

“Well, sure, let’s all give it a try. 
Here it is: 

“There are two world-famed math- 
ematicians, Mr. P and Mr. S. A friend 


of theirs who likes puzzles tells both of 
them that he has two numbers in mind. 
The only thing he will tell both of them 
about these two numbers is that they 
are both integers, greater than 1, and 
they are not the same. 

‘He then whispers to Mr. P the 
product of the two numbers. 

‘“‘He whispers to Mr. S the sum of 
the two numbers. 

“Mr. P knows that Mr. S knows the 
sum, but he doesn’t know what that 
sum is. Similarly, Mr. S knows that 
Mr. P knows the product, but he 
doesn’t know what that product is. 

“The following conversation then 
takes place: 

“Mr. P: ‘I don’t know the numbers.’ 

“Mr. S: ‘I know that; I also don’t 
know the numbers.’ 

‘‘Mr. P: ‘Oh, then I know the 
numbers.’ 

“Mr. S: ‘Really, then I do also.’ 

“Your task, of course, is to discover 
the two numbers. It would take you a 
long time to figure them out by hand, so 
write a program to do it. A short 
program.” 

Smith is more interested in IQMAIL 
than puzzles. She sets her cigarette 
down next to the coffee maker, its lit 
edge extending beyond the wood ve- 
neer top of the table, and pours herself 
another cup. “Is IQMAIL working for 
everybody? I’ve heard complaints 
from some of the other divisions.” 

Levin also pours a second cup. “I 
patched in my own communications 
package for a backup when IQMAIL 
goes down, which was twice yesterday. 
That’s a terrific puzzle, Spots. The 
smallest two numbers that fit are 2 and 
3, right?” 

“Yes. You can see that their product 
is 6 and their sum is 5. But these two 
gentlemen are expert mathematicians. 
They would know that the numbers 
could not be 2 and 3.” 

“Mm hm. If the guy has told S that 
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the sum was 5, S would know right 
away what the two numbers were. And 
the sum couldn’t be 6, either, come to 
think of it, because the two possibilities 
would be either 3 and 3, which are 
eliminated because they’re the same, 
or 2 and 4, which would mean again 
that he knew the numbers. Tricky.” 

Scrivener starts another pot brew- 
ing. He begins sniffing again. 

Smith notices that the glowing end of 
her cigarette is almost burning the ta- 
ble. She picks it up and jams it in her 
mouth. 

Scrivener again waves his hands 
around. “I have a puzzle that I don’t 
think can be solved by computer.”’ 

Levin slides the pot away before the 
water has stopped dripping, holding 
his cup in place to catch the diminish- 
ing stream. When his cup is filled, he 
adroitly slides it out of the way, and 
slips the pot back in place to catch the 
last drops. “Any puzzle can be solved 
by computer, Grey.” 

“Oh. Write me a program, then, that 
answers this question: What is a 
horse?” 

McRae giggles. ““We used to make 
up silly questions like that at Cal, with 
sillier answers. Why is a duck? Be- 
cause one of its feet are both the same. 
When is a horse? When it has a leg in 
each corner.” 

All smile, Scrivener included. “‘Can 
you describe a horse programmatical- 
ly? Maybe a few FOR-NEXT loops or, 
even better, a little recursion?” 

Well, gentle readers, can you do it? 
Your programs must be short and ele- 
gant. They can be in any language, al- 
though I hope you don’t pick some- 
thing obscure like Snobol or SPL. The 
algorithms may be demonstrated in a 
good pseudolanguage if you wish or 
perhaps flowcharts. The best solution 
to each puzzle wins a DDJ t-shirt and 
will be published here. Remember that 
a good program is self-documenting. 
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Programming in C 
by Stephen G. Kochan 
Published by Hayden Book 

Company 
373 pages 
Reviewed by lan Ashdown 
There are now as many books about 
the C programming language as you 
could possibly want—from simple tu- 
torials about the basics of the language 
to a completely documented imple- 
mentation of a C compiler ... and of 
course,that definitive work, Kernighan 
& Ritchie’s The C Programming 
Language. 

C is a programming language noted 
for its sparseness and economy of ex- 
pression. Most books on C are relative- 
ly slim, reflecting its powerful simplic- 
ity. Not so, however, Programming in 
C; at 373 pages, this book is nothing 
short of voluminous. Each subject is 
dealt with in exhaustive and ultimately 
exhausting detail. If you are in search 
of an answer about almost any aspect 
of C, you will find it in this book. You 
will also find it quickly—the index is 
thorough and well organized. 

The promotional blurb on the cover 
reads: ““A complete, easy-to-understand 
introduction to the C programming lan- 
guage for the novice and experienced 
programmer alike. Contains over 90 
program examples and covers all the 
latest language features.” Unlike most 
promotional claims, this is one that I 
fully agree with. The book starts with a 
very quick review of programming fun- 
damentals, shows you how to write, 
compile, and execute a simple C pro- 
gram, and then is off and away into ex- 
amining the language itself. 

What do you want to know about? 
Variables, constants, data types, and 
arithmetic expressions? Program flow 
control? Arrays, functions, structures, 
character strings, pointers, bit opera- 
tions, and bit fields? The preprocessor, 
perhaps, or separate compilation? In- 
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put and output or maybe miscella- 
neous and advanced topics such as 
unions, dynamic memory allocation, 
and the goto statement (more on this 
later)? Programming in C covers them 
all with many clear and detailed 
examples. 

The exhaustive detail of this book 
can best be demonstrated by an exam- 
ple. In any language, how can one pos- 
sibly find enough to say about the low- 
ly if statement to fill 18 pages of text? 
Answer: Read this book and see. 

I must remind myself, however, that 
I am reading the book as a fairly profi- 
cient C programmer. It wasn’t too long 
ago that I taught myself the language 
with only K & R’s book as a guide. It 
was a frustrating experience at times, 
compounded by that book’s sparse lit- 
erary style. For the neophyte, Pro- 
gramming in C is undoubtedly a far 
better book from which to learn the 
language. 

Having learned C, I have found no 
better reference book for my tastes 
than K & R’s The C Programming 
Language. There are days, however, 
when I simply cannot remember some 
of C’s more cryptic features, and 
K & R does nothing to disperse the 
mental fog. Over the past month, I 
have found that Programming in C, 
despite the author’s propensity for ver- 
bosity, serves very nicely. In other 
words, the book truly is “‘for the novice 
and experienced programmer alike.” 

A full C compiler running under 
Unix on a minicomputer is assumed 
throughout the book, with only passing 
references to the idiosyncracies of mi- 
crocomputer versions. This approach 
has obvious advantages in that the 
book itself will stand as a valid refer- 
ence manual for as long as the C lan- 
guage is in general use. The same can- 
not be said for some other books on C 
that are based on current versions of 
particular C compilers. 


Other nice features of this book are 
its appendices. Appendix A is a sum- 
mary of the language, written in a style 
that is both concise and clear. (This is 
in marked contrast to K & R’s Appen- 
dix A, “The C Reference Manual.” 
Their language summary is concise but 
rarely clear to the average reader.) Es- 
pecially useful is a full range of exam- 
ples involving pointers, with explana- 
tions in English. 

Appendix B, entitled ““Common Pro- 
gramming Mistakes,” is unfortunately 
too short to be of much use. But, then, 
serious programming in C means that 
you likely will make every mistake pos- 
sible—the power and conciseness of the 
language guarantees it. Learn by doing 
and have a good reference manual by 
your side at all times to rescue you. 

Appendix E discusses a program 
that all microcomputer-bound C pro- 
grammers dream of: “lint.” The dis- 
cussion, which is a short page and a 
half, merely covers what this program 
analyzer looks for when presented with 
C source code. It flags such potential 
problems as undeclared variables, un- 
reachable code, improperly declared 
functions, invalid structure member 
accesses, possible operator precedence 
errors... sigh. What I wouldn’t give to 
have the source code for this program! 

K & R’s book is often referred to as 
the standard reference manual for the 
language, and yet it does not cover 
some extensions that have since be- 
come standard for Unix-based C com- 
pilers. You can now pass structures as 
arguments (not just pointers to them) 
to functions, and a new data type 
called “‘void”’ explicitly tells the com- 
piler that a particular function does 
not return any value. Also the “enu- 
merated” data type, taking a cue from 
Pascal and other languages, allows a 
restricted range of values to be as- 
signed to a variable. Programming in 
C is one of the few books that discusses 
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these features in detail. Now if only 
the microcomputer C compiler writers 
could take heed of these ex- 
tensions.... 

The author does display some inter- 
esting programming prejudices. The 
goto, break, and continue statements 
are relegated to the back of the book in 
a chapter entitled ‘Miscellaneous Fea- 
tures and Advanced Topics.” The rea- 
soning is that these statements serve 
only to “obfuscate the program’s logic 
and are not generally considered a part 
of good programming practice.” 

While I agree with the author that 
the goto statement is an anachronism 
that should be avoided whenever possi- 
ble, I cannot agree with his argument 
about the break and continue state- 
ments. I find that these two statements 
serve to simplify and clarify the logic 
of program loops. 

Also curious is the relegation of 
command line arguments to the same 
chapter. This to me is one of the most 
powerful features of C—it brings some 
of the grandeur of Unix to CP/M- 
based microcomputers, among other 
things. It also greatly extends the utili- 
ty of programs that present the user 
with runtime options. It should have 
been given more space than its allotted 
page and a half. 

Apart from that, I can say, while the 
book may be too wordy for my liking, it 
nevertheless can serve as an excellent 
reference on the C language as well as 
a tutorial for learning C. Program- 
ming in C may not be the ideal book 
for your needs, but by all means give it 
your consideration if you see it. 


Pascal for Programmers 
by Olivier Lecarme and 
Jean-Louis Nebut 

Published by McGraw-Hill 
$22.95, 272 pages 
Reviewed by Dr. Joseph B. 
Rothstein 
The position that BASIC has long en- 
joyed as the language of choice among 
beginning programmers faces a serious 
challenge from Pascal. Designed by 
Kathleen Jensen and Niklaus Wirth in 
the early 1970s, the Pascal program- 
ming language was intended to imple- 
ment the principles of structured pro- 
gramming that were emerging at that 
time. 

Because the design of the language 
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encourages good programming habits, 
Pascal has been adopted for use in the 
first course in programming at many 
colleges and universities, and it is now 
available on most microcomputers as 
well. 

Numerous texts use Pascal to intro- 
duce the principles of computers and 
programming to the neophyte, and 
some of them serve this audience well. 
However, there is a need for a text that 
would introduce and describe the en- 
tire Pascal language to someone al- 
ready familiar with computer pro- 
gramming; it is this need that Lecarme 
and Nebut address in Pascal for Pro- 
grammers. Although Pascal is well 
suited to beginners, it is also a power- 
ful and elegant general-purpose lan- 
guage that has achieved considerable 
acceptance among business and scien- 
tific programmers as well. 

Pascal for Programmers attempts 
to discuss each aspect of Pascal for ex- 
perienced programmers—that is, those 
who don’t need explanations of what 
computers, programs, algorithms, or 
expressions are. The authors have as- 
sumed that readers are already famil- 
iar with some high-level programming 
language, such as Fortran, BASIC, or 
PL/I, and that they understand the 
fundamental concepts of computer 
programming. 

As a result, beginning programmers 
may find the text inappropriate and 
confusing, and the authors make it 
clear that the book isn’t intended for 
use in an introductory course in com- 
puter programming. Rather it offers 
an exhaustive treatment of Pascal and 
a precise description of the language 
standardized by ISO (International 
Standards Organization). As such, it 
differs from the many nonstandard im- 
plementations that attempt to address 
Pascal’s widely acknowledged limita- 
tions in such areas as string manipula- 
tion and file handling. 

Given its narrow focus on the needs 
of experienced programmers and its 
strict adherence to the ISO standard, 
Pascal for Programmers serves its in- 
tended audience superbly. The first 
chapter offers a brief introduction and 
even briefer history of Pascal, followed 
by practical suggestions on how to use 
the book. Chapters 2 through 5 present 
the basic building blocks that constitute 
Pascal programs. The remaining ten 


chapters present the different struc- 
tures that enable the programmer to 
construct complete, complex programs 
from these basic building blocks. 

Each chapter deals with one particu- 
lar programming construct, relating to 
either data structures or the imple- 
mentation of algorithms. Although 
each chapter is relatively independent 
of the others, they are presented in an 
orderly sequence that introduces the 
most difficult concepts toward the end. 
For the programmer already familiar 
with Pascal, this facilitates quick ref- 
erence to a complete discussion of a 
particular construct, without the need 
to leaf through the entire book. 

Examples are used liberally 
throughout. These range from simple, 
short procedures to complete, complex, 
and lengthy programs, depending on 
the topic under discussion. In this re- 
gard, the text is far superior to others 
that use only a syntax chart and a 
statement or two to illustrate a point. 
While such an approach may focus the 
reader’s attention on the construct un- 
der consideration, it does not offer the 
broader view used throughout Pascal 
for Programmers. The examples are 
generally followed by remarks that 
amplify and add to the sense of the 
code itself. As the book progresses, 
both the examples and the accompany- 
ing remarks become longer and more 
complex, as Pascal’s power and ele- 
gance are more fully demonstrated. 

Exercises are included as well, but 
they are not the true/false or short- 
answer variety commonly found in 
more introductory tests. Rather they 
require complete and challenging pro- 
grams or program fragments. An ap- 
pendix offers solutions to one exercise 
selected from each chapter. Other ap- 
pendices include collected syntax dia- 
grams, a bibliography, tables and ref- 
erence lists, and a discussion of 
implementation-defined and imple- 
mentation-dependent features. 

More and more programmers and 
educators are coming to believe that, 
once one understands the fundamental 
principles of programming, any given 
language represents only a particular 
embodiment of that relatively fixed set 
of basic constructs. Conversely, if the 
student lacks an integrated view of pro- 
gramming, each new language will pose 
a seemingly new challenge, unrelated to 
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other languages learned previously. 

Pascal for Programmers seems 
written with the broad view in mind. 
While it does not directly contrast Pas- 
cal code with that of other languages, 
high-level concepts are discussed from 
the perspective of language indepen- 
dence before the particulars of their 
embodiment in Pascal are introduced. 

While the text is inappropriate to 
the needs, background, or budget of 
the curious beginner, its thorough, 
practical focus on the essence of Pascal 
qualifies it as a worthwhile continuing- 
education and reference tool for the 
programmer. If you want to teach 
yourself Pascal in a few evening’s time 
or brush up on its more complex fea- 
tures without wading through back- 
ground or introductory material of 
secondary importance, Pascal for Pro- 
grammers is perhaps the best such text 
available today. 


Microcomputer Software 
Design 

by Sally Campbell 

Published by Prentice-Hall 

$12.95 

ISBN: 0-13-580621-6 

Reviewed by Richard L. Lozes 

First, a disclaimer: Microcomputer 

software design is no different than 

any other software design. However, 

because microcomputers are also con- 

sumer items, the title appeals to a mass 

market. How well does the book ad- 

dress its topic in that market? 

As the author admits in her preface, 
professional programmers write and 
study texts of greater breadth and 
depth. Indeed, an example she chose to 
develop throughout the book is amus- 
ing. | doubt that anyone with only the 
study of this book could cost effective- 
ly produce a correct payroll system. 
Such software is much better 
purchased. 

Ms. Campbell surveys many of the 
techniques used in commercial soft- 
ware creation, all of which were in- 
vented in the sixties and seventies. 
Hierarchical Input-Process-Output 
(HIPO) charts, pseudocode, flow- 
charts, modularization, and testing are 
all discussed. 

The first chapter could well have 
been left out. It is no more than a mu- 
seum catalog of computer parts, im- 
parting no understanding of software 
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design. (For instance, whether a com- 
puter has a motherboard really has no 
bearing on how it is programmed.) The 
second chapter, on problem definition, 
glosses over the specification phase in 
its haste to begin design work. Such 
haste is well known to be fatal to pro- 
gramming efforts. 

The author ignores two of the over- 
riding characteristics of software cre- 
ation as it is currently practiced: pro- 
gramming is much more of a social 
activity, and programming is very ex- 
pensive. The expense is the reason for 
the existence of the techniques dis- 
cussed. And, true, individual program- 
mers do use techniques, but they also 
participate in reviews, walk-throughs, 
and heated discussions. One would like 
to see some acknowledgement of this 
“engineer’s” viewpoint as motivation. 

Microcomputer Software Design 
can be recommended only to those 
with some knowledge of the program- 
ming process who desire a shallow in- 
troduction to HIPO, pseudocode, file 
definitions, or debugging. Otherwise, 
$12.95 can be better spent elsewhere. 


Self-Organization and 
Associative Memory 

by Teuvo Kohonen 

Published by Springer-Verlag 

ISBN: 0-387-12165-X 

Reviewed by Richard L. Lozes 

Associative memory is a behavior pe- 

culiar to certain adaptive filters. If x 

denotes a key, M a set of (memory) 

parameters, and y data to be recalled, 

then 


y = y (x,M) 


represents associative recall if M = M 
(historical y). 

Professor Kohonen develops his 
book around this type of function, 
seeking the conditions under which 
memory is able to store compressed 
data and to reexpand it for recall. He 
pursues notions of input-driven system 
reorganization, devoting a chapter to 
“self-organizing feature maps.” 

Many of us in the computer field are 
familiar with content-addressable 
memory. Such a memory is character- 
ized by key-data pairs that are stored 
as received, one pair per location. Re- 
call is effected by specification of a key 
alone and involves only the word(s) 
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holding the requested key. This simple, 
direct, one-to-one mapping is a good 
deal less general than the associations 
that Professor Kohonen discusses. 

Associative memories are character- 
ized by a distribution of data through- 
out the memory medium, similar to the 
way in which a hologram stores data, 
but they also possess key-based retriev- 
al the way content-addressable memo- 
ries do. Mathematically, this distribut- 
ed memory is reflected in the changing 
of the entire set of parameters, M— 
thus, the notion of a system reorgani- 
zation. This is the type of memory that 
typifies the book. Clearly, the author is 
really attempting to answer the enig- 
ma of biological memory in preference 
to the well-understood technological 
memories. 

The second chapter surveys and 
summarizes the necessary mathemati- 
cal tools. These are drawn almost en- 
tirely from the domain of linear math- 
ematics—in particular, from linear 
algebra. Nonlinearity, not being re- 
quired at the lowest levels (within each 
memory element, say), is deempha- 
sized. Actually, feedback via the asso- 
Ciative parameters, M, above suffices 
to introduce the memory behavior. 
This chapter is particularly easy to 
read, despite the breadth of its cover- 
age. In good European tradition, the 
author has amply referenced the origi- 
nal literature. 

I must level one serious criticism 
against this monograph. Professor Ko- 
honen refuses to permit arbitrarily 
complex memory elements. Rather he 
insists that they be “physical.” I be- 
lieve that he is mistakenly assuming 
that “physical” systems are inherently 
and economically describable by sim- 
ple mathematics. That strikes me as 
naive. On the one hand, one can always 
reduce complex systems to simpler 
components, either exactly or approxi- 
mately. On the other hand, nothing in- 
dicates that biological memory is char- 
acterized by (mathematically) simple 
cells. In short, while Occam’s razor de- 
mands simplicity, Professor Kohonen 
apparently has shaven away far more 
than fuzziness. 

Nevertheless, as an introduction to 
the field of associative memory, this 
little book is quite reasonable. A read- 
er of modest mathematical prowess 
will receive sufficient inspiration and 
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information here to start into the field. 


Interactive Programming 

Environments 
Edited by David R. Barstow, 

Howard E. Shrobe, and 

Erik Sandewall 
Published by McGraw-Hill 
$34.95, 609 pages 
Reviewed by Tom Provenzano 
A great deal of research is in progress 
in the area of automated software en- 
gineering environments—what some 
might call expert systems for program- 
mers. Software engineering environ- 
ments provide an integrated set of tools 
to assist the programmer during most 
phases of the software development 
process, from system design to soft- 
ware testing. Interactive Program- 
ming Environments, edited by Bar- 
stow, Shrobe, and Sandewall, is a 
collection of 28 papers describing the 
research under way and the philosophy 
behind the building of programming 
environments. 

The book is divided into five sections 
that explore issues and problems in the 
construction of interactive program- 
ming environments (IPSEs). The edi- 
tors admit in the preface that “‘pro- 
gramming environment” does not have 
a generally accepted meaning, but they 
offer a definition of “computer-aided 
design systems for software.” 

The papers in the book focus on in- 
teractive as opposed to batch types of 
environments, because the writers feel 
that a dialogue form of interaction be- 
tween man and machine is the optimal 
method of implementing and using 
software engineering environments. 
None of the papers addresses automat- 
ed software production—programs 
that write programs—since that is an 
entirely separate field of its own, 
heavily submerged in artificial intelli- 
gence research. What is addressed in 
these papers is the middle ground be- 
tween manual systems (the way soft- 
ware is currently developed) and auto- 
mated systems, namely IPEs. 

The first section in the book, ‘*Per- 
spectives on Interactive Programming 
Environments,” consists of three pa- 
pers exploring the motivations and rea- 
sons for developing IPEs. The first pa- 
per, “Breaking the Complexity Barrier 
(Again), by Terry Winograd of Stan- 
ford University, written in 1973, 
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sketches what an IPE should be like 
and what it must do to help program- 
mers handle the complexity involved in 
building modern software systems. 
Winograd describes an integrated sys- 
tem of tools containing knowledge 
about the system being built and act- 
ing as a sort of “programmer’s assis- 
tant” by providing precompilation er- 
ror checking, system question 
answering, and debugging support 
throughout all stages of the software 
development process. Most of the 
other papers in the book describe sys- 
tems that attempt to implement what 
Winograd outlines in this early paper. 

One major issue that becomes ap- 
parent after reading the papers in this 
book is that of the difference between 
the incremental growth vs. the life cy- 
cle approach to software development. 
Incremental growth is akin to the soft- 
ware prototyping approach of building 
a working base and adding enhance- 
ments piece by piece, whereas the life 
cycle method follows a more rigid and 
inflexible structure of design/code/ 
test. Because most of the papers are 
authored by people involved in aca- 
demic or research efforts, the former 
approach seems to be preferred. A 
question to keep in mind when reading 
these papers is: Is the incremental 
growth method of software develop- 
ment necessarily superior to the life 
cycle method, especially for systems 
built in a nonacademic, industrial 
environment? 

Other IPE features discussed 
throughout the book include data-driven 
systems, smart editors and debuggers, 
and DWIM (“Do What I Mean, Not 
What I Say’”’) facilities. A primitive ex- 
ample of the last-named feature is hav- 
ing the system overlook simple typing er- 
rors and perform the command closest 
to what the user intended (after query- 
ing to ensure it’s OK to do so). 

Included in this volume are papers 
describing programming environments 
based on LISP (INTERLISP, LISP Ma- 
chine, the Programmer’s Assistant), C 
(Unix, Programmer’s Workbench), 
Pascal (Pathcal), Ada (APSE—Ada 
Programming Support Environment), 
and smart editors (EMACS, DED, 
MENTOR). The book’s final section, 
“The Future of Interactive Program- 
ming Environments,” contains another 
paper by Terry Winograd in which he 


conjectures that the next step in IPEs 
must be the elimination of the necessi- 
ty of having programmers work with 
specific programming languages. In- 
stead they will be developing software 
at a level conceptually above high-or- 
der languages. Systems will be built 
out of software components, and the 
programming environments used to 
build such systems will know a great 
deal about software and software de- 
velopment in general. 

Interactive Programming Environ- 
ments is a good source of information 
on the continuing research in a field 
that shows promise in improving and 
altering the way software systems are 
developed. The book is fairly easy 
reading (a knowledge of LISP is help- 
ful but not essential for some of the 
papers) for those with software engi- 
neering backgrounds and will be much 
appreciated by those implementing or 
interested in automating the software 
production process. 

I would hope, though, that all imple- 
mentors of future IPEs might take a 
hint from the Emily system described 
in the book and provide a “ssympathy”’ 
button, as explained by Wilfred J. 
Hansen: ‘‘When the user is frustrated 
he can push a sympathy button. In re- 
sponse, Emily displays at random one 
of ten sympathetic messages.” We can 
all use a pat on the shoulder from our 
digital friends now and then. 


Talking Chips: 

IC Speech Synthesis 
by Nelson Morgan 
Published by McGraw-Hill 
178 pages, 150 illustrations, 
$24.50 
Reviewed by Dennis Cashton 
One of the fastest growing areas of 
technology for computers is speech 
synthesis. But it is not a new area. 
Work on this electronic marvel has 
been going on since 1939 when a de- 
vice called VODER was introduced. If 
this subject holds the least bit of inter- 
est for you, this work is an excellent 
addition to your library. 

At first glance, you might think that 
unless you are an engineer this book is 
too technical. Upon further examina- 
tion, however, you would find that it is 
entertaining and not at all intimidat- 
ing. To be sure, this is not a “how to” 
book but more of an explanation of 
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how speech synthesis started, how it 
works, who’s doing it, and maybe 
where it will go in the future. 

Nelson Morgan has written a seri- 
ous book, but this has not stopped him 
from making it very amusing. He 
makes occasional references to some 
very silly uses for speech synthesis, the 
first of which is his mythical “talking 
toaster.” There are numerous cartoons 
depicting equally silly situations with 
speaking devices. Even with all the fri- 
volity, he never fails to stay on target 
with his writing. He starts out with a 
description of what speech synthesis 
really is then gives a basic overview of 
the several ways it can be accom- 
plished. Continuing on through the 
hardware, he gets to a description of 
how some of today’s speech synthesis 
chips work. 

The next part of the book is where 
things get a little deep for the nontech- 
nical person. This is where Mr. Mor- 
gan gets into the actual analysis of 
speech, including waveforms, estima- 
tion, classification, and pitch tracking 
(to drop a few names). He then goes on 
to discuss synthesis by rule and spends 
an entire chapter on the subject of ob- 
taining quality audio to use for creat- 
ing synthesized speech. 

The final chapter covers how to send 
your own speech to an IC manufactur- 
er and have it put on a chip, new ideas 
for speech synthesis, music and sound 
effects, and a section on speech recog- 
nition. After reading this last section 
you will understand why a lot more 
work has to be done in this area. 

On the whole, the author does a 
wonderful job of presenting his topic. 
He compares the different techniques 
for speech analysis and synthesis, and 
he points out why some companies are 
using some methods and others are us- 
ing different ones. If waveforms are 
not your thing, but you are interested 
in the concept of speech synthesis, it is 
quite simple to skip right over the more 
technical sections and still get a lot out 
of the book. But if you like formulas 
and models and such, the book is filled 
with them. There’s even an appendix 
that describes Fourier analysis and 
windowing in enough detail to delight 
any calculus fan. 

For a subject as complex as speech 
synthesis, this is a clear and pleasant 
presentation. I learned a lot from it, 
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and I enjoyed reading it. 


The Acorn/BBC Micro, 

An Expert Guide 
by Mike James 
Published by Prentice-Hall, Inc. 
$14.95, 158 pages 
Reviewed by Morton F. Kaplon 
Who better than the author to tell you 
what this book is all about? The first 
paragraph of the Preface summarizes 
it quite nicely. 

The subject of this book is the BBC 
Micro, its hardware, and its software, 
and it is aimed at anyone who has al- 
ready started to plumb the depths of 
this fascinating machine. It is not an 
introduction to BASIC, nor does it at- 
tempt to explain the fundamental 
hardware that goes to make up any 
computer. Instead it plunges straight 
into the complexities and intricacies of 
this very special micro.” 

The book is divided into nine chap- 
ters of approximately equal length, en- 
titled: The Hardware; BBC BASIC; 
The Machine Operating System; The 
Video Display; The Sound Generator; 
Interfacing; Introduction to Assembly 
Language; Assembly Language II; 
and Postscript. The author notes that 
material covered in the BBC User 
Guide is not duplicated in this volume 
except as required to make this book 
self-contained. 

The BBC Micro is based on the 6502 
microprocessor operating at a clock 
speed of 2 MHz with a maximum of 
32K of RAM. The standard system has 
32K of ROM in the form of two 16K 
chips. One contains the operating sys- 
tem (MOS) and 1K used principally 
for memory-mapped I/O devices. The 
second chip contains the BBC BASIC 
interpreter and the 6502 assembler; 
this ROM can be replaced by any of 
three alternative ROMs under software 
control. Storage is by tape cassette. 

The book does as it says. It deals 
with this machine at the level stated 
and with those assumptions. If you 
own a BBC Micro and want to know 
more about it, then this book may 
prove useful. If you are not a BBC Mi- 
cro owner, then it is difficult to see 
what this book may hold for you or 
how it could be useful to you. This is 
not written as a “cook book,” and the 
implementation of the concepts pre- 
sented will require serious dedication 
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on the part of the user. 
New Books 


Personal Pascal 
David E. Cortesi and 

George W. Cherry 
Reston Publishing Co., Inc. 
Reston, VA 1984 
420 pages 
This book is the wedding of George 
Cherry’s Pascal Programming Struc- 
tures (Reston, 1981) with the IBM PC. 
Our own resident intern, Reverend D. 
E. Cortesi, officiates. 
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Microprogrammer’s Market 

1984 
Marshall Hamilton 
TAB BOOKS Inc. 
Blue Ridge Summit, PA, 1984 
$13.50, 229 pages 
You can find interesting information 
in this book even if you’re not looking 
for a job. For example: prior to this 
year, Data General published fewer 
than 50 programs (ever), but the com- 
pany plans to sell 200 in 1984. Yeah, 
Data General. The computer company 
with soul. 


The Best of CP/M Software 

John D. Halamka 

SYBEX Inc. 

Berkeley, CA 1984 

$14.95, 252 pages 

One man’s opinion about 45 software 
packages. Although no reader will 
agree with all of his choices, Halamka 
has much software reviewing experi- 
ence and writes well. One weakness, at 
least from a programmer’s viewpoint, 
is the weak treatment of languages and 
utilities. 


Macintosh! 

COMPLETE 

Doug Clapp 

Softalk BOOKS 

North Hollywood, CA 1984 

$19.95, 329 pages 

As of this writing, one of two decent 
books on the Mac. 


The Apple Macintosh Book 

Cary Lu 

Microsoft Press 

Bellevue, Washington, 1984 

$18.95, 383 pages 

As of this writing, one of two decent 
books on the Mac. This is the technical 
one. 


The Small-C Handbook 

James E. Hendrix 

Reston Publishing Co., Inc. 

Reston, VA 1984 

$14.95, 256 pages 

DDJ published Ron Cain’s small com- 
piler for a subset of the C language in 
the May 1980 issue. By the time (De- 
cember 1982 - January 1983) DDJ 
published Jim Hendrix’s greatly-en- 
hanced Small-C, the issues containing 
Cain’s original compiler and subse- 
quent issues containing Small-C mate- 


rial had sold out. The Hendrix issues 
soon sold out as well. This book de- 
scribes the latest version of the compil- 
er, Small-C Version 2.1. 


A Programmer's Notebook: 
Utilities for CP/M-80 

David E. Cortesi 

Reston Publishing Co., Inc. 

Reston, VA 1983 

$16.95, 368 pages 

You won’t see this book reviewed here 
because of our policy of not reviewing 
our editors’ books. We will, however, 
read it. Cortesi believes that program- 
ming is neither an art nor a science, 
but a craft. This book is about learning 
the craft. 


The Enclopedia of Microcomputer 
Terminology 
A Sourcebook for Business 
and Professional People 
Linda Gail Christie and 
John Christie 
Prentice-Hall 
Englewood Cliffs, NJ, 1984 
$9.95, 
We’ve needed a good dictionary /ency- 
clopedia of microcomputer terminolo- 
gy for a long time. We still do. 


Apple Software Directory 
Yellow Pages to the World of 
MicroComputers 
PC Telemart/Vanloves 
PC Telemart, Inc./Vanloves 
Fairfax, VA, 1984 
$24.95, 965 pages 
The publisher bills this book as the yel- 
low pages to the world of microcom- 
puters, and it does have the style and 
heft of a metropolitan phone directory. 
For this third edition, its compilers 
have added a mediocre glossary and a 
list of bulletin boards, and have updat- 
ed its information on software for the 
Apple II-III family. Scads of software. 
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* Librarian * 
* Pascal Cross Compiler * 
* C Cross Compiler * 


U.S. prices start at S500 


SOLUTIONWARE 


1283 Mt. View-Alviso Rd. 
Suite B 
Sunnyvale, Calif. 94089 
408/745-7818 *« TLX 4994264 
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TC, PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


DYNAMIC RAM 
256K 256Kx1 150 ns $34.34 
256K 256Kx1 200ns 26.26 
64K 64Kx1 150 ns 4.77 
64K 64Kx1 200 ns 4.62 
16K 16Kx1 200 ns 1.21 
EPROM 
27256 32kx8 300ns $49.97 
27128 16Kx8 300ns_ 18.77 
27C64 skx8 200ns_ 22.50 
2764 8Kx8 250 ns 6.50 
2732 4Kx8 250 ns 6.37 
2716 2Kx8 450 ns 3.50 
STATIC RAM 
6264LP-15 150 ns $31.25 
6116P-3 150 ns 6.36 


Open 6% days: We can ship via Fed-Ex on Sat. 
MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts uPoco 
MICROPROCESSORS UNLIMITED 
24,000 South Peoria Ave. 
BEGGS, OK. 74421 (918) 267-4961 
Prices shown above are for September 17, 1984 
Please call for current prices & volume discount. Prices wg to change. Please expect 
higher prices on some parts due to world wide oe hipping and insurance extra 


Cash discount prices shown. Small orders received by 6 PM CST can usually be delivered to 
you by the next morning, via Federal Express Standard Air @ $5.99! 


QUANTITY ONE PRICES SHOWN 
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C Programmers 


B-Trees 


For 


y 5.° @ +2. : Postage 


Source Code Included 
The Softfocus B-Trees record index- 
ing library will help you develop 
sophisticated application programs. 
With Softfocus B-Trees you get: 
@ high speed file handling for up 
to 16.7 million records per file 
e customizable BDS or K &R 
standard C source code 
@ no royalties on applications 
programs 
@ support random and sequential 
file access 
@ includes example programs 
Softfocus aa 


1277 Pallatine Dr., Oakville, Ont. a 
Canada L6H 121 (416) 844-2610 =—_ 
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Get the power of your Z80, and the elegance 
of direct access to CP/M functions 
from your high level programs with 


SYNLIB utility library 


SYNLIB consists of MICROSOFT compatible object 
code that may be called from any high level language 
that uses MICROSOFT parameter passing conventions 


SYNLIB gives you extremely powerful array and buffer 
manipulation using the Z80 LDIR instruction; program 
access to the CP/M CCP console command line; high 
speed disk block I/O; a high quality random number 
generator, hex to ASCI! conversion optimized by special 
Z80 instructions; program chaining; and more. 


And, because our programmer abhors a vacuum, each 8” 
floppy comes packed with some of the most valuable 
public domain software, including available source, ab- 
solutely free. You get SWEEP, a menued disk utility that 
makes a computer phobe a systems programmer, 
UNSPOOL, so you can print and use your computer 
without buying an expensive buffer; /, to get multiple 
commands on a line; MODEN7, so that you too can join 
the free software movement; and many others. 

SYNLIB $50.00 8” SSSD CP/M format 

SOURCE: $100.00 
Licensing for commercial use available. 
SYNTAX CONSTRUCTS, Inc. 
14522 Hiram Clarke, Houston, Texas 77045 
(713) 434-2098 


CP/M is a registered trademark of Digital Research, Inc. 
Microsoft is a registered trademark of Microsoft Corp. 
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A general purpose programming 
language for string and list 
processing and all forms of 

non-numerical computation. 


SNOBOL4+ —the entire 


SNOBOL4 language with its superb pattern-matching 
facilities © Strings over 32,000 bytes in length © Integer 
and floating point using 8087 or supplied emulator on 
* ASCII, binary, sequential, and random- Pte 
access I/O ® Assembly Language inter- oo +? 
face * Compile new code during we h ad 
program execution ® Create ey Ov we 


G 


SAVE files © Program OP oe 

and data space He we" Os. With 
to Bee bytes ¢ - ELIZA & over 
RA a ie) 100 sample pro- 


grams and functions 


3 an 
wv ge % oo 2 For all 8086/88 PC/MS-DOS or 

yt ase a ‘M-86 systems, 128K minimum 
ow 5%‘ DSDD, specify DOS/CPM format 


¢ 
i el Send check, VISA, M/C to: $95 


" Catspaw, Inc. 


P.O. Box 1123 © Salida, CO 81201 © 303/539-3884 


plus °3s/h 
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4=20? 
4 the VIC! 
VIC FORTH’ for the VIC 20 


VIC FORTH* cartridge 
memory expansion optional 


$14.25 


Starting FORTH by L. Brodie 
softcover book/recommended 


$18.50 


BOTH TOGETHER (mention this aq) 
PA residents add 6% 


$30.75 


Please request our free VIC brochure 


mowers EMGE ASSOCIATES 
eee P.O. Box 17330 
= Pittsburgh, PA 15235-0330 


VIC FORTHSHES VIC “Commodore 
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OF INTEREST 





by R. P. Sutherland 
Languages 


Starlight Forth Systems has a Forth 
compiler with macro assembler and 
debugging tools for the new 16-bit 
65SC802 and 65SC816 microproces- 
sors (which are plug and software com- 
patible with the 6502 and 65C02). Op- 
tions include a full assembler for all 
versions of the 65xxx processor family, 
a meta-compiler with code and high- 
level debugging tools, source on disk, 
and a full-screen editor. High-level 
listings of the tools for non-6502 sys- 
tems are also available. For the full 
range of options and prices write: Star- 
light Forth Systems, 15247 N. 35th 
St., Phoenix, AZ 85032. Reader Service 
No. 105. 

Wizard Systems Software has re- 
leased version 1.3 of the Wizard C 
Compiler. Improvements over the pre- 
vious version, which already supported 
the full C language, include improved 
syntax checking and error diagnosis of 
the compiler, warnings about mistaken 
use of the assignment operator where 
the equal operator was intended (mis- 
typing = for = =), as well as indica- 
tions where parentheses may be need- 
ed. Another version 1.3 enhancement 
is the support of the Large Memory 
Model, which allows Wizard C users 
the capability of writing programs as 
large as all of physical memory, with- 
out restriction. Wizard C Compiler is 
available for $450.00 (single CPU li- 
cense) from Wizard Systems Soft- 
ware, Inc., 11 Willow Court, Arling- 
ton, MA 02174 (617) 641-2379. Reader 
Service No. 107. 

C-Power Packs feature six libraries 
of functions and subassemblies to aid 
in debugging and to enhance code uni- 
formity. C-Power Packs operate on 
Microsoft and Lattice C Compilers 
and include code for data base, com- 
munications, mathematics, utilities, 
and building block functions. Prices 
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start at $99.00. For more information 
contact Dr. Ramal Murali, Software 
Horizons, 165 Bedford Street, Bur- 
lington, MA 01803 (617) 273-4711. 
Reader Service No. 109. 


Macintosh 


MacTools is a low-cost disk utility 
package that integrates many standard 
disk functions into one program. In ad- 
dition to common disk manipulations 
such as copying, renaming, and delet- 
ing files and copying, renaming, and 
formatting disks, MacTools provides 
features such as: (1) copy protect /un- 
protect; (2) verify a disk; (3) lock/un- 
lock files; and (4) make files visible / 
invisible. MacTools is available for 
$39.95 from Central Point Software, 
Inc., 9700 SW Capitol Hwy, Suite 
100, Portland, OR 97219 (503) 244- 
5782. Reader Service No. 111. 

SoftTech Microsystems is shipping 
three packages for Macintosh pro- 
grammers. UCSD Pascal Development 
System allows access to mouse, graph- 
ics, and text fonts provided by Mac 
ROM routines for $195.00. Fortran-77 
Development System provides an 
ANSI-77 subset Fortran for $295.00. 
The Advanced Development Tool Kit 
includes source code for graphics/ 
mouse interface, a symbolic debugger, 
68000 assembler, and a linker. The 
cost is $150.00. The company claims 
that UCSD Pascal and Apple Pascal 
are sufficiently compatible so as to al- 
low porting of Apple II and III pro- 
grams to the Macintosh. In addition, 
the company says that UCSD applica- 
tions running on the IBM PC can be 
easily ported. SoftTech Microsystems 
is located at 16885 West Bernardo 
Drive, San Diego, CA 92127 (619) 
451-1230. Reader Service No. 113. 

The Programmer’s Shop has estab- 
lished the Macintosh Developer’s Ex- 


change, a bulletin board to provide a 
forum for discussions related to Mac- 
intosh development. They hope to fa- 
cilitate a freer flow of information and 
to promote the exchange of small utili- 
ties of the type usually written for in- 
house use. Some intriguing products 
are in the works that will help convert 
assembly language programs written 
for the IBM PC, the 8088 CP/M envi- 
ronment, and Apple Ile to the Macin- 
tosh. To participate in the Macintosh 
Developer’s Exchange contact the Pro- 
grammer’s Shop, 128 Rockland St., 
Hanover, MA 02339 (800) 421-8006 
or use the bulletin board (P-line) at 
(617) 826-4086. 


Expert Systems 


Expert-Ease is an expert system gener- 
ator that runs on a microcomputer. 
The product is based on the artificial 
intelligence ‘“‘inference engine” devel- 
oped by Intelligent Terminals, Ltd., in 
Edinburgh, Scotland. An expert gives 
examples to the system, and once Ex- 
pert-Ease has enough examples, it fig- 
ures out the rules that lead to the ex- 
pert’s conclusions. Then the program 
coaches the expert to enter questions, 
which later will aid the nonexpert in 
providing information for solving new 
problems. Expert-Ease runs on the 
UCSD-p system on the the IBM PC and 
compatibles. Separate versions are 
available for DEC Rainbow and Victor 
9000 (or Sirius). The full software 
package costs $2,000.00. A demon- 
stration diskette and manual are avail- 
able for $125.00. Contact Expert-Ease 
Inc., 206 Fifth Avenue, New York, 
NY 10010 (212) 684-4331. Reader Ser- 
vice No. 101. 

The Forth Interest Group (FIG) in- 
vites you to attend the Forth Modifica- 
tion Laboratory (FORML) conference 
at the Asilomar conference grounds in 
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Pacific Grove, California, from No- 
vember 23-25. Expert systems and 
artificial intelligence are among the 
topics that will be covered. For more 
information call the FIG hot line (415) 
962-8653. 

Jack Park’s Expert-2 (see DDJ, April 
1984) is now optimized for use with 
MMSFORTH versions 2.0 and up. 
MMSFORTH licensees can add Expert- 
2 to their system for $69.95. The 
MMSFORTH system disk is available 
for TRS-80 Models 1, 3, 4, and 4P for 
$129.95. Reader Service No. 103. 


Disk Storage 


Chipmunk is a 3.5-inch portable disk 
drive for the TRS-80 Model 100 and 
other lap computers. The Chipmunk is 
powered by internal rechargeable 
nickel cadmium batteries or an AC 


Tera-drive is a high-capacity floppy 
disk subsystem for Apple Ile and II+. 
Using cobalt-coated, high-density, 5%- 
inch floppy disks, this unit provides one 
megabyte of storage per disk. The pro- 
prietary operating system supports 
UCSD-p, CP/M, and DOS. The 1- 
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adaptor. The unit plugs into the com- 
puter’s expansion bus using a l-inch 
wide ribbon cable and EZ-Snap con- 
nector. The Chipmunk Disk Operating 
System, CDOS, is contained on a ROM 
chip. The price is $499.00. For more 
information write Holmes Engineer- 
ing, 5175 Greenpine Drive, Salt Lake 
City, UT 84123 (CompuServe 
71675,527). Reader Service No. 115. 


Miscellany 


Free-Access On-Line Software 
Library 

A Florida firm specializing in comput- 
er-readable data bases has opened an 
electronic software locator service to 
assist software shoppers in finding 
software products. Anyone with a tele- 
phone and a modem-equipped comput- 
er (set for 8 bits, 1 stop bit, no parity) 


Mbyte drive retails for $995.00 and the 


2-Mbyte dual drive retails for 
$1595.00. For further information con- 
tact Eicon Research, Inc., 520 Fifth 
Avenue PH, New York, NY 10036 
(212) 719-5353. Reader Service No. 117. 





can log on by calling (305) 845-6466. I 
found useful categories and thousands 
of software products with descriptions 
and prices. Shoppers can enter infor- 
mation, comments, or requests directly 
into a software vendor’s electronic 
mail box. For more information, direct 
inquiries to Searchmart Corporation, 
745 U.S. Highway One, North Palm 
Beach, FL 33408 or call (305) 845- 
2996. 


Free Apple Software 

Send one dollar to Computer Learning 
Center, P.O. Box 45202, Tacoma, WA 
98445 for your catalog of public do- 
main software for Apple II+ (and 
some Apple Ile). Forbidden Fruit con- 
tains thousands of programs of every 
possible variety, which you can order 
for the price of the floppy ($4.00). 


CP/M Utilities Catalog 

John Donohue has compiled an inter- 
esting catalog of low-cost CP/M utili- 
ties. A sample entry called “Later, list- 
ed for $22.00, allows one to 
accumulate lists of commands that can 
be postponed. According to the cata- 
log: ““When you go to lunch, type SUB- 
MIT NOW, and they all get done. Let 
the computer remember what it has to 
do, and do it when you’re not around. 
Obvious.” None of the utilities are 
over $50.00 and some are as low as 
$7.00. Order your copy from Donohue 
& Co. Computer Services, P.O. Box 
255, Hannibal, NY 13074. Reader Ser- 
vice No. 119. 


IEEE Call for Papers 

The deadline for submitting papers to 
the IEEE Computer Society Confer- 
ence on Computer Vision and Pattern 
Recognition is January 7, 1985. For a 
copy of the call for papers with a com- 
plete list of conference topics and full 
details on submission of papers, write 
or call: Computer Vision and Pattern 
Recognition, P.O. Box 639, Silver 
Spring, MD 20901 (301) 589-8142. 
The conference will be held in San 
Francisco at the Cathedral Hill Hotel 
from June 9 — 13, 1985. Reader Service 
No. 121. 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 200. 
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Software 
Development 


PCDOS/MSDOS 


Complete C Compiler 
Full C per K&R 

e Inline 8087 or Assembler Floating 
Point, Auto Select of 8087 
Full 1Mb Addressing for Code or 
Data 
Transcendental Functions 
ROMable Code 
Register Variables 
Supports Inline Assembler Code 


MSDOS 1.1/2.0 
Library Support 


All functions from K&R 

All DOS 2.0 Functions 

Auto Select of 1.1 or 2.0 
Program Chaining Using Exec 
Environment Available to Main 


c-window™ 


Symbolic Debugger 
Source Code Display 
Variable Display & Alteration 
Using C Expressions 
Automatic Commands 
Multiple Breakpoints by Function 
& Line Number 


8088/8086 Assembler 
FAST — Up to 4 times Faster than 
IBM Assembler 
Standard Intel Mnemonics 
Compatible with MSDOS Linker 
Supports Full Memory Model 


8088 Software Development 


Package g : 9 goo 


Includes: C Compiler/Library, 
c-window, and Assembler, plus 
Source Code for c-systems Print 
Utility 


c-systems 


P.O. Box 3253 
Fullerton, CA 92634 
714-637-5362 
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Thunder Software 






@ ASSYST: The Assembler System - Acompletees02 adiews/ assembler and lister for APPLE DOS 3.3. Menu driven. excellent error 


trapping. 24 p. users guide. demo programs. source code for alipregrams!:Greatfor beginners. Only $23.50 
@ THUNDER XREF.- A cross reference utility for APPLE Pascal 1.1. XREF generates eraseteti 


and documentation provided. Only $19.95 


Thunder Software POB 31501 Houston Tx 77231 713-728-5501 
Include $3.00 shipping. COD, VISA and MASTERCARD accepted 


yeftereniges for each procedure. Source code 
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We thought about calling it MacSimplex .. . 
after all it makes your IBM®PC behave like a 
Macintosh™ and much more... 


and with over two years in the making, the Simplex 
Database Management System has features like 
32-megabyte virtual memory and the most powerful 
networked/relational database in the microcomputer 
industry. Simplex was designed around how you 
think and the Macintosh way, so that you can use 
your favorite mouse to handle those mundane tasks 
like menu selection and data manipulation. And, if 
you don’t have a mouse, you can use our keyboard 
mouse simulator, MouSim™. 


Pop-up and pull-down menus, dialog and alert boxes 
are not just added features, they are the heart of the 
Simplex way. In addition, Simplex gives you both a 
software and a hardware floating point capability, 
each with 19-digit accuracy. It permits login, 
password, privilege, and can be used on a local area 
network. Simplex has full communications and a 
remote or local printer spooler. Above all, Simplex is 
modular and grows with you! Simplex also has a 
full-featured, English-like language which is simple 
to use. 





You can’t buy Simplex™, but it is now available as an integral part of 
it's my Business™ and will be used by it’s my Word™., it’s my Graphics™, .. . 


Businessmen! it’s my Business will revolutionize the 
way that you handle your business. It saves time, 
money, and standardizes your system for all who use 
it. it’s my Business comes with applications like 
accounting, interoffice or intraoffice mail, editing, 
invoicing, inventory managment, mail list, calendar, 
scheduler, forms and more. You can modify each of 
these to create applications specifically designed for 
you... maybe we should have called it “it’s your 
Business”. 


Professionals! it’s my Business has over 200 pages of 
examples and demonstrations to show you how to 
solve your everyday professional problems. And if 
these examples aren’t enough, we give you a 
complimentary one-year subscription to Questalk™, 
our hands-on Simplex applications magazine. 





System integrators and consultants, beware! If you 
are not using it’s my Business with Simplex to solve 
your problems, don’t be surprised when more novice 
programmers solve that complex math, industrial 
engineering, or business problem faster. We think 
that you can cut your concept-to-development time 
by an order of magnitude! 


it’s my Business (includes it’s my Editor) - $695.00 
it's my Business Demo Disk - $20.00 
it’s my Editor - $100.00. 


Quest Research software is available through your local computer store or through mail 
order from Quest Software Corporation at (205) 539-8086. 303 Williams Avenue, 
Huntsville, AL 35801. 


Value added resellers and dealers please contact Quest Research, Incorporated at 
(800) 558-8088. 303 Williams Avenue, Huntsville, AL, 35801. 


T™ 


Quest Research Inc. 


IBM is a registered trademark of International Business Machines. Macintosh is a trademark of Apple Corporation. it’s my Business, it’s my Word, it’s my Graphics, 
its my Editor, it's my Home, it’s my Voice, it’s my Ear, it’s my Statistics, Simplex, MouSim, Questalk, and the Quest logo are trademarks of Quest Research, Incorporated. 
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IERSION Zi 


® BORLAN 


BORLAND “% 


INTERNATIONAL 


GIFT PACK A SAVINGS OF $30! 


What a gift for you and your friends! The extraordinary TURBO 
PASCAL compiler, together with the exciting new TURBO TOOLBOX 
and new TURBO TUTOR. All 3 manuals with disks for $99.95. 


Version 2.0 (reg. $49.95). The now classic program 
development environment still includes the FREE MICROCALC 
SPREAD SHEET. Commented source code on disk 


¢ Optional 8087 support available for a small additional charge 


NEW! (reg. $49.95). A set of three funda- 

mental utilities that work in conjunction with TURBO PASCAL. 

Includes: 

¢ TURBO-ISAM FILES USING B+ TREES. Commented source code 
on disk 

¢ OUIKSORT ON DISK. Commented source code on disk 

¢ GINST (General Installation Program) 

Provides those programs written in TURBO PASCAL with a terminal 

installation module just like TURBO’S! 

e NOW INCLUDES FREE SAMPLE DATABASE 


NEW! (reg. $29.95). Teaches step by step how to 
use the TURBO PASCAL development environment—an ideal 
introduction for basic programmers. Commented source code for all 
program examples on disk. 


30 DAY MONEY BACK GUARANTEE 
These offers good through Feb. 1, 1985 


For VISA and MASTERCARD order call toll free: 

1-(800)-255-8008 1-(800)-742-1133 

(Lines open 24 hrs., 7 days a week) 

Dealer and Distributor inquiries welcome (408) 438-8400 

CHOOSE ONE (please add $5.00 for handling and shipping U.S. orders) 
All Three-Gift Pack $ 99.95 + 5.00 
All Three & 8087 139.95 + 5.00 
Turbo Pascal 2.0 49.95 + 5.00 
Turbo Toolbox 49.95 + 5.00 
Turbo Tutor 29.95 + 5.00 
Turbo 8087 89.95 + 5.00 

Check Money Order VISA MasterCard 


Card #2 ae Shipped UPS 
My system is: 8 bit 1G Dit, 
Operating System: CP/M 80 CP/M 86 MS DOS PC DOS 


Computer: Disk Format: 
Please be sure model number & format are correct. 


NAME: 
ADDRESS: 
CITY/STATE/ZIP: 
TELEPHONE: 


California residents add 6% sales tax. Outside U.S.A. add $15.00 (if outside of 
U.S.A. payment must be by bank draft payable in the U.S. and in US. dollars). 
Sorry. no C.O.D. or Purchase Orders. 


BD) BORLAND 


B®) NTERNATIONAL 


4113 Scotts Valley Drive 
Scotts Valley, CA 95066 
TELEX: 172373 





